open(FH, '<&=0');

##</code><code>##

perl -T -MFcntl=SEEK_SET -e'getpwent(); open(FH,q{<&=3}) or die $!; seek(FH,0,SEEK_SET); print <FH>'