#!/usr/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);
$cgi = new CGI;

chmod(0666, xxx.pl);
chmod(0755, yyy.pl);

print $cgi->header('text/plain'), "Chmod aller relevanten Dateien und Ordner wurde erfolgreich gesetzt.";