#!/usr/bin/perl

my $file='jjl.exec.txt';
open STDOUT, ">", $file or die "$0: open: $!";
open STDERR, ">&STDOUT"        or die "$0: dup: $!";

<>;
while($line = <>) {
    print if defined;
    $_ = $line;
}