Select Code to Download

use CGI;
my $q=new CGI;
print $q->header("application/x-perl").`cat $0`;

use CGI;
my $q=new CGI;
...
print $q->header(-type=>`file -bi $filename`."; file=$filename",
   -content_dispostion=>"attachment; filename='$filename'").
   `cat $filename`;