##

#!c:/perl/bin -w
use strict;
use CGI;

my $q = new CGI;

my $path_to_program = "c:/perl/myprog/prog.pl";
my $return_value = system("c:/perl/bin/perl.exe",$path_to_program);

# this is the actual execution of the script. 
# now you can put a message to the user
print $q->header; # send correct header, text/html
# put HTML here