#!/usr/bin/perl

use strict;
use warnings;

use CGI;
print CGI->header( 'text/plain' );

my $result = qx{ perl script1.pl 2>&1 };
print $result,"\nfertig...\n";