Select Code to Download

    Usr1369***12556
06-01-0101:00    1169 <snipped off>
...
06-01-0103:12    2569 <snipped off>
06-01-0301:00    1169 <snipped off>
06-01-0301:00    2396 <snipped off>

    Usr1369***12556
06-01-0101:00    1169 <snipped off>
...
    Usr1369***12556
06-01-0301:00    1169 <snipped off>
06-01-0301:00    2396 <snipped off>

my @filedata = <IFILE_HANDLER>;
my $head = shift(@filedata);
my $line

foreach $line(@filedata);

print (OFILE_HANDLER "$head");
print (OFILE_HANDLER  "$line");
close (OFILE_HANDLER);