#!/usr/bin/perl

use Time::Piece;
use strict;
use warnings;

my $filedt = localtime->strftime('%Y%m%d');

my $skiphead = 1;
my $skipfoot = 2;

my $infile   = '/home/vmeruga_alt/EXEC_${filedt}.txt';
my $outfile  = '/home/vmeruga_alt/EXEC_tgt.txt';
my @buffer   = ();

open IN,  '<', $infile  or die "Cannot open $infile for reading: $!";
open OUT, '>', $outfile or die "Cannot open $outfile for writing: $!";

<IN> for (1..$skiphead);
push @buffer, scalar <IN> for (1..$skipfoot);
while (<IN>) { print OUT shift @buffer; push @buffer, $_; }

close OUT;
close IN;