mit onClick Perl Unterprogramme aufrufen

[Sergej]

Hallo !

Beispiel:perlscript.pl

#!/usr/bin/perl -w

use strict;
use CGI::CARP qw(fatalsToBrowser);
use CGI;
my $cgi  = new CGI;
my $act  = $cgi->param('act');

if($act eq "Test2") { Test2(); }
else                { Test1(); }

sub Test1 () {
...
print "<input type=button value='Führe Test2 aus' onClick='perlscript.pl?act=Test2'></form>";
}

sub Test2 () {
...
}

Wenn man jetzt auf dem Button klick wird sub Test2 leider nicht ausgeführt. Kann jemand mir bitte helfen ?

Gruß Sergej