Select Code to Download

$ cat ABC
qwe
...
rty
fgh
vbn

#!/usr/bin/env perl

...
      }
   close(file_two);
}

Name "main::file_one" used only once: possible typo at ./pm_example.pl
+ line 8.
line : qwe
...
line : zxc
  line2 : vbn

#!/usr/bin/env perl

...
        print "line1 : $line1  line2 : $line2\n";
    } 
}

line1 : qwe  line2 : rty
line1 : qwe  line2 : fgh
...
line1 : zxc  line2 : rty
line1 : zxc  line2 : fgh
line1 : zxc  line2 : vbn