my $file = '/tmp/inexistent';
open( my $fh, "<", \$file) or print "open in-memory file error";
open( my $fh1, "<", $file) or print "open real file error ";