my $Usage = "Usage: $0  file1  file2 > combined.file\n";
die $Usage unless ( @ARGV == 2 and -f $ARGV[0] and -f $ARGV[1] );

my ($inf1,$inf2) = @ARGV;