.....
my $port = $cgi->param("port");

if ( $port ) {
    my $cmd = "ssh -n -F -R $port:localhost:22 -p 80";
    my $pid = fork();
       if ( $pid == 0 ) {
         exec($cmd)
         }
}

print $cgi->redirect("home.pl");