Select Code to Download

use warnings;
use strict;
...
Getfile->reset;  # start again
print scalar Getfile->content;
print scalar Getfile->content;

# Getfile.pm

...
sub reset { seek $fh, 0, 0 or die qq{seeking }, FILENAME, qq{: $!}; }

1;

line 1: The rain in Spain
line 2: falls mainly on the plain.
line 3: The quick brown fox jumps over
line 4: the lazy dog.
line 5: How now, brown cow?

c:\@Work\Perl\monks>perl use_Getfile_1.pl
printing from file qwerty.txt
...
line 5: How now, brown cow?
line 1: The rain in Spain
line 2: falls mainly on the plain.