#!/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";