nicht angemeldet
#!/usr/bin/perl
Du solltest dir auch die Warnungen anzeigen lassen.
print "Content-type: text/html\n\n";
use CGI;
use strict;
my $cgi = CGI->new();
Warum bindest du das über 200KB grosse CGI Modul ein und verwendest es dann nicht?
print $cgi->header(), $cgi->start_html();
print "<html><head><title></title></head><body>";
exec("mkdir ./bleh/foobar");
exec("cp ./do.pl ./bleh/foobar");
exec("chmod -R 777 ./bleh/foobar");
exec("touch ./bleh/foobar/file.txt");
exec("chmod 755 ./bleh/foobar/file.txt");
Dafür gibt es Perlbefehle (du kennst perldoc?) und Module.
Struppi.