Mondjuk perl-ben:
($filename1, $filename2) = @ARGV;
unless ($filename1 && $filename2) {
print "Használat: $0 \n";
exit;
}
die "Nem tudom megnyitni a $filename1 fájlt." unless open F1, "<$filename1";
die "Nem tudom megnyitni a $filename2 fájlt." unless open F2, "<$filename2";
while () {
chomp;
print;
$l2 = ;
print $l2;
}