my $path = 'apachectl';

my $output = `$path -v`;
my @split = split /:/, $output;

if ($split[1] !~ /\d\.\d\.\d/) {
  print qq|Cant find Apache version <br />|;  
} else {
  print qq|$split[1] <br />|;
}