Select Code to Download

#!/usr/bin/perl -wT

...
print $cgi->header( -type => $content_type );
print while <FILE>;
close FILE;