Data Conversion

Hi all, Consider this snippet: #!perl.exe -w use strict; my $f = 'abc'; my $fref = \$f; my $fh; warn "(0) $!" if $!; open ($fh, '<', $fref) die $! warn "(1) $!" if $!; print "\n", <$fh>; seek ($fh, 1, 0) die $!;