#!/usr/bin/perl -w use CGI; use CGI::Carp "fatalsToBrowser"; use Text::CSV; $cgi = new CGI; print "Content-Type: text/html\n\n"; my $name=$cgi->param('name'); my $type=substr $name, 4; $file='/var/run_suite.sh'; chdir "/var"; exec "sudo -E $file $type"; print " .... .... .... .... ";