$ perl -E 'open $fh, "<a.txt"; $fh->seek(0, 0);'
Can't locate object method "seek" via package "IO::Handle" at -e line 1.