1
2
3
4
5
6
7
#!/usr/bin/perl
use strict;
use CGI::Carp qw(fatalsToBrowser);
system("C:/Perl/bin/perl.exe test/test2.pl");
#exec("C:/Perl/bin/perl.exe test/test2.pl");
1
2
3
4
5
6
7
8
#!/usr/bin/perl
use strict;
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
print "<tr><td align=\"center\"><a href=\"test/test2.pl\">weiter</a></td></tr>";