C:\test>perl -E"seek STDIN, 0,0 or die $!" <junk.txt

C:\test>echo junk.txt | perl -E"seek STDIN, 0,0 or die $!"
Invalid seek at -e line 1.