die "Usage: $0 InputFile1 InputFile2 OutputFile\n"
    unless @ARGV==3;
my ($InputFile1, $InputFile2, $OutputFile3) = @ARGV;
# ... rest of the code here