Select Code to Download

=-> cat test.pl
my($plaintext,$html);
...

just read
$html:

#!/usr/bin/perl -w
use strict;
...
 
warn "2 + 2 = 4 not 5!\n";
die "saying two and two makes FOUR! (I love Big Brother!)\n";