$ perl -le 'my $x = localtime; print $x'
Tue Apr  4 11:25:49 2006

$ perl -le 'my($x) = localtime; print $x'
52

##</code><code>##

#!/usr/bin/perl

sub test
{
  if (wantarray) { return ('list context'); }
            else { return 'scalar context';  }
}

my $s = test;
print "s=$s\n";

my(@l) = test;
print "l=@l\n";