use PeekHandle;
my $fh = PeekHandle->new('sample.txt')
  or die "Couldn't open file: $!";

print scalar <$fh>;
print $fh->peek;
print $fh->peek;
print scalar <$fh>;
print scalar <$fh>;
print "<undef>\n" if ! defined $fh->peek;