There could be more than one Perl directory. Also, it might not be named Perl. You'd be best off checking the registry to find that out.

<code>
use strict;
use warnings;
my $Registry;
use Win32::TieRegistry( TiedRef => \$Registry );
my $CurrVer = $Registry->{"HKEY_LOCAL_MACHINE\\SOFTWARE\\ActiveState\\
+ActivePerl\\806\\" };
print $CurrVer->{'\\'}."\n";
[download]