Select Code to Download

#!/usr/bin/perl -w
use strict;
...

print "Content-type:text/html\n\n"; 
print $content;