Select Code to Download

#!/usr/bin/perl -w 
print "Content-Type: text/html\n\n"; 
my $x = 0; 
...
{
     print $x++, "\n"; 
}