use strict;
use warnings;
print "Content-type: text/html\n\n";
print "Test";
my @ret = `./runthis.pl`;
print length(@ret);
print $ret[0];

##</code><code>##

use strict;
use warnings;
print "Hellow World";