$ perl -MFileHandle -E 'open $fh, "<a.txt"; $fh->seek(0, 0);'