chomp (my $outfile = shift);
open OUTPUT, '>', $outfile or die "Could not open $outfile\n";