#!C:/Perl/bin/perl.exe use strict; use warnings; use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); my $cgi=new CGI; print $cgi->header(); print $cgi->start_html("Welcome"); print ""; system 'C:/BatchTest/test.bat'; print "Program ends"; print ""; print $cgi->end_html();