my  $q  = localtime(time);
my ($r) = localtime(time);

sub whatcontext {
    print wantarray ? "list" :
        defined wantarray ? "scalar" : "void", "\n";
    return;
}

my  $s  = whatcontext;
my ($t) = whatcontext;
whatcontext;

__END__

scalar
list
void