use version; ... sub checkPerlVer { my $minVer = shift; # eg '5.12' my $installVer = `perl -v|grep -E '(v[1-9.]+)'`; if ($installVer =~ /\((v[\d+.]+)\)/){ #print "match $1\n"; my $reVer = $1; my $iver= version->parse($reVer); my $mver= version->parse($minVer); printf "Minimum Perl=$mver Installed Perl=$iver \n"; if ($mver <= $iver) { print "OK \n"; return 1; #OK }else{ print "NOPE\n"; return 0; #NOT OK } }else{ print "No version found: <$installVer>\n"; return 0; } }