#!/usr/bin/perl

if ($ARGV[0] ne "") {
    $outfile = "$ARGV[0]";
} else {
    $outfile = "$$.tmp";
}

open(OUT, ">$outfile");
while (<STDIN>) {
    print OUT $_;
}
close(OUT);
