#!/usr/bin/perl -w
use strict;
 
my @lines=<DATA>;
pop @lines;
 
open(FOUT,"> myout.txt") or die $!;
print FOUT @lines;
close FOUT;
 
 
__END__
line 1
line 2
line 3
line 4
line 5
line 6
line 7
line 8
line 9
line 10
line 11
line 12
line 13
line 14
line 15