sub main { print "Content-type: text/html\n\n"; print " \n"; ....(omitted since this part works if real output print "\n"; open("runmain","$commands{$PROGRAM} $TARGET_HOST |"); while () { chomp $_; print "$_\n"; } print " \n"; close ("runmain");