$ perl -Mstrict -Mwarnings -E '
    use Tie::File;
    tie my @lines, q{Tie::File}, q{./pm_1027453.dat} or die $!;
    say $lines[$#lines];
    untie @lines;
'
line3