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)