#! perl
use strict;
use Tie::File;

my @lines;
tie @lines, 'Tie::File', 'filename';

open OUT, '>', 'outputfile' or die $!;

print OUT @lines[0, -1, 0 .. $#lines];

close OUT;