Select Code to Download

#!/usr/bin/perl -wT
use CGI qw/:standard/;
...
    print BFH "$newCOMMENT\n";
    close(BFH);
}