my $outfile = shift; open OUT,">".$outfile or die "Could not open $outfile:$!\n"; print OUT $_ while <>;