レジストリ値のの取得
Win32::Registryモジュールを使います。Windows用です。
use Win32::Registry;
my $reg = $HKEY_CURRENT_USER;
my $key = "Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings";
my $item;
$reg->Open($key, $item) or die $^E;
my $type;
my $value;
$item->QueryValueEx("MaxConnectionsPerServer", $type, $value) or die $^E;
$reg->Close();
print "$value($type)\n";
