open $f,'<','file' or die $!;
my $r=\<$f>; 
print ref($f);#SCALAR
print "$$r";# prints the last line of the code