$ perl -e 'print (my ($rec) = undef);'
print nothing, but 
$ perl -e 'print "return=" . (my ($rec) = undef);'
print return=1