求perl大神相助~

求perl大神帮助~~~
my $location = &is_weekend($day) ? "home" : "work";

这个程序的子程序改如何写？

[解决办法]
不知道参数 $day 代表什么？

Perl code

sub is_weekend {    my $wday = (localtime time)[6];    return 1 if ($wday == 0 or $wday == 6);    return 0;}