perl -e 'print scalar(my ($rec) = undef);'
perl -e 'print "return=",(my ($rec) = undef);'