merge two files

merge.pl

use strict;
use warnings;
 
open (my $foo, '<', 'foo.txt') or die;
open (my $bar, '<', 'bar.txt') or die;
open (my $merged, '>', 'merged.txt') or die;

print $merged '#!/bin/sh', "\n";
 
while (not eof $foo and not eof $bar) {
    my $f = <$foo>;
    my $b = <$bar>;
    chomp($f);
    chomp($b);
    print $merged "$f /usr/boxes/$b\n";
}
 
print "Finished.\n";