Select Code to Download

#!/usr/bin/perl -T

...
print "ERROR: " . $dbh->errstr if $dbh->err;

print "\nCRID: $crid\n";

#!/usr/bin/perl -T

...

__END__

TEST: 0

CRID: 1

$html->head;

#$html->head;
print "Content-type: text/plain\n\n";

<p>TEST: 0</p>
<p>CRID: 1</p>