#! /usr/bin/perl

use strict;
use warnings;

my $input1=<>;
my $input2=<>;
my $output = "output.txt";
#
open (READ1, $input1) || die "Cannot open $input1: $!.\n";
chomp ($input1);
open (READ2, $input2) || die "Cannot open $input2: $!.\n";
chomp ($input2);
open (WRITE, ">$output") || die "Cannot open $output: $!.\n";

while (my $line= <READ1>.<READ2>){
	chomp ($line);
	print WRITE "$line\n";
	
}
close (WRITE); 
close (READ2);
close (READ1);
print "done\n";