perl -le 'sub foo { 7,2,3 } $foo = foo(); print $foo'
3

##</code><code>##

print not 1,0;
print $/;
__END__
1