Select Code to Download

#!/usr/local/bin/perl -w
use Socket;
...
close (FILE);
exit(0);
}

#!/usr/local/bin/perl -wT
use strict;
...
print $q->h1($message);
print $q->h2('Please try again');
print $q->end_html();