Select Code to Download

my $content = $q->param( 'content' );
if (!$content){
  print $q->header,"no damn content";
exit;
}

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

...
    print @bot_file;
    print "finish";
}