Select Code to Download

use Tie::File;
...

print @file[$#file - $length + 1 .. $#file];

    print @file[-$length .. -1];