# Hauptscript # 
sub { 
...
my $resize_success = system(qq{./resize.cgi param1 param2});
...
print CGI::header();
print 'success';
return
}