# Getfile.pm package Getfile; use 5.008; use warnings; use strict; use constant FILENAME => 'qwerty.txt'; open my $fh, '<', FILENAME or die qq{opening }, FILENAME, qq{: $!}; sub content { return <$fh>; } sub reset { seek $fh, 0, 0 or die qq{seeking }, FILENAME, qq{: $!}; } 1;