Select Code to Download

#!/usr/bin/perl

...
print $cgi->header, $cgi->start_html({
    title  => "My Page",
    script => qq(var counter=$counter)});

print $cgi->header, $cgi->html( $cgi->frameset({ cols=>"75%,45%" }) );