求perl大神帮助~解决方案

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

这个程序的子程序改如何写？
[解决办法]
不知道参数 $day 代表什么？

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