Select Code to Download

for ($i=0; $i < $lines1; $i++) {

    print "Name $i is $data_names[$i]<p\/>";
...
    
    close (FH);
}

#!/usr/bin/perl -Tw
#####################################
...
print '</body';
#####################################
#exit;