Select Code to Download

#!/usr/bin/perl
use CGI qw(:standard);
...
print start_html(), start_form(), textfield('data', $data),
    submit('script'), submit('refresh'), submit('othersite'), end_form
+, end_html();
}

--
package Lizard::King;
sub can { do { 'anything'} };