#!/usr/local/bin/perl -w use strict; use CGI qw(:standard); use CGI::Carp qw/fatalsToBrowser/; print "Content-Type:text/html\n"; print "\n"; print "\n"; print ""; print ""; my $program="index.bat"; #$status= system ($program) ==0 or die "$program exited funny: $?"; print ""; print "";