my $fh = 'f.tmp';
my $s = <$fh>;
print "i am here: s='$s'\n";