Select Code to Download

$ catfiles.pl *.txt *.html > mynewfile.txt

#!/usr/bin/perl
use strict; use warnings;
...
    while (<$FH>) { print $_ }
    close $FH;
}