use strict;
use warnings;
use English;

print "Usage: $0 output input1 input2 ...\n";

my $outfile = shift @ARGV;
open(OUT, ">$outfile") || die "Can't open $outfile for writing: $!\n";

while(<>){
    # $_ contains line
}