Select Code to Download

$ cat squidge.pl
#!/usr/bin/perl
...

open my $FH, '>', $INFName . ".out" or die;
print $FH $t, "\n";