#!/usr/bin/perl use warnings; use strict; open READ, "myfile" or die "Cannot open: $! \n"; my @lines = <READ>; print "$. lines read \n"; close READ; exit if $#lines < 9; open WRITE, "> myfile" or die "Cannot write: $! \n"; print WRITE $_ foreach @lines[-10..-1]; print "done \n"; close WRITE;