use strict;
use warnings;

# change these to work with your machine.
my $interface_name = "Local Area Connection";
my $RSPath         = 'C:\games~~\Red Storm Entertainment\RavenShield';

# Get current IP
my $config = `ipconfig`;
$config =~ /IP Address[. :]+([\d.]*)/;
my $myIP = $1;

munt();
show();
launch();
unmunt();
show();


sub launch
{
print `$RSPath/system/RavenShield.exe`;
}

sub munt
{
print `netsh interface ip set dns "$interface_name" static $myIP`;
}

sub unmunt
{
print `netsh interface ip set dns "$interface_name" dhcp`;
}

sub show
{
print `netsh interface ip show dns`;
}