perl -e'open FH,"<test.pl"||die$!;$fh=\*FH;sysread($fh,$foo,256);
$bar=tell($fh);print"$foo\n$bar\n";'