#!/usr/bin/perl
use CGI;
my $cgi = new CGI;
print $cgi->header();
print <<EOM;
<form method="post" action="script2.cgi>
<input type="submit" name="Name" value="Value">
</form>
EOM

##</code><code>##

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