#!/usr/bin/perl
# example paths can be:
# apachectl
# apache2ctl
# httpd
my $path = 'httpd';
print "Content-Type: text/html \n\n";
print "Perl: " . $] . "
";
my $output = `$path -v`;
my $output2 = system(qq|$path -v|);
print "OUTPUT: ($path -v) " . $output . "
";
print "OUTPUT 2: ($path -v, as system()) " . $output2 . "
";
my @split = split /:/, $output;
if ($split[1] !~ /\d\.\d\.\d/) {
print qq|Cant find Apache version
|;
} else {
print qq|$split[1]
|;
}