use strict;
use Fcntl qw(:seek);

open my $in, "filename" or die $!;

my $line = <$in>;
print "$line\n";

seek $in, (0 - length $line), SEEK_CUR or die $!;

$line = <$in>;
print "$line\n";

close $in;