File Perl

#!/usr/bin/perl
use warnings;
use strict;
open FILE, "test.txt" or die $!;
my @last5;
while () {
    push @last5, $_; # Add to the end
    shift @last5 if @last5 > 5; # Take from the beginning
}
print "Last five lines:\n", @last5;