.. should automate the task of deleting the lines in the file ..
Then, in that case, you can specify the filename in your script, then open a filehandle to read from,doing all you wanted done. Like so:

use warnings;
use strict;

my $filename = '...';  # specify the file name here
open my $fh, '<', $filename or die "can't open $filename: $! ";
while ( defined( $_ = <$fh> ) ) {
    print $_ unless $. == 1 or eof;
}
close $fh or die "can't close $filename: $!";
[download]