#Files - Answer to exercise 2
$n = $ARGV[0];
$filename = $ARGV[1];
open FILE,"<$filename" or die "Cannot read $filename: $!\n";
$nlines = 0;
while ($line = <FILE>)
{$nlines = $nlines + 1;
}
open FILE,"<$filename" or die "Cannot read $filename: $!\n";
$i = 0;
while ($line = <FILE>)
{$i = $i + 1;
if ($i > $nlines - $n)
{print $line;
} }