in reply to Re^2: Contents of file not printed to STDOUT
in thread Contents of file not printed to STDOUT

As documented, perldoc -f seek 
seek MYFILE, 0, 0;
while(my $line = <MYFILE>)
{
...

[download]

In Section Seekers of Perl Wisdom