#!/usr/bin/perl -w

# filename: catskiphead
# Merge files skipping the first line from the seocnd file onwards
my $line = 1;
while(<>) {
    next if ($line++ == 0);
    $line = 0 if eof;
    print ($_);
}