mit onClick Perl Unterprogramme aufrufen

[Anfänger]

Hallo zusammen !

In einen CGI-Script habe ich onClick-Funktion eingebaut und möchte gerne, wenn man auf dem Button klick soll eine bestimmte Unterprogramm in dem selben Datei ausgeführt werden.

Beispiel:

#!/usr/bin/perl -w

use strict;
use CGI::CARP qw(fatalsToBrowser);

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

}

sub Test2 () {
...
}

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