Or in the spirit of perl (TIMTOWTDI) here is another way to map a drive in perl.

use Win32::OLE;
use Win32::OLE::Variant;

my ($username, $password) = ('Administrator','');
my $network = Win32::OLE->new('WScript.Network') 
     or die('Error creating network object');

$network->MapNetworkDrive('O:','\\\\127.0.0.1\\dev', 0, 
                           $username, $password)
[download]

More information on this method can be found here.