#!/usr/bin/perl

use strict;
use warnings;

print "Content-type: text/plain\n\n";

my $script = 'script.pl';

my $result = qx{$script};
print $result;