Select Code to Download

print <<HTML;
Username: <input type="text" size="10" name="username"><br>
...
...
...
HTML

print textfield(
        '-name', 'username',
...
        },
      ),
      ... etc

sub afunc {
  my($x, $y) = \@_;
}