use Win32::Lanman;
#Gets information about the to \\testserver\testshare.
if(!Win32::Lanman::NetUseGetInfo("f:", \%info))
{ 
   print "Sorry, something went wrong; error: "; 
   # get the error code 
   print Win32::Lanman::GetLastError(); 
   exit 1; 
} 

foreach (sort keys %info) { 
   print "$_=$info{$_}\n"; 
}