Select Code to Download

#!/usr/bin/perl
use CGI qw(:all);
...
print end_html;
__END__

print header(), start_html (-script => $js) ;