Select Code to Download

#!/usr/bin/perl
use CGI;
...
<input type="submit" name="Name" value="Value">
</form>
EOM

#!/usr/bin/perl
use CGI;
...
if ($cgi->param('Name') eq 'Value') {
    #your code here ... refer to by $cgi->param('var')
}