A little programming.

I've just written this little bit of perl code. Can anyone guess what it does?

use Win32::OLE;

$network = Win32::OLE->CreateObject("WScript.Network");

if(-d "//lrvlgatransfs/Translations")
{
  $network->SetDefaultPrinter("10.10.16.45:OTTA");
}
else
{
  if (-d "//Steve-Ginstar/Music")
  {
    $network->SetDefaultPrinter("LTP1:");
  }
  else
  {
    $msg=`net sub \\Steve-Ginstar /user:administrator`;
    $network->SetDefaultPrinter("LTP1:");
  }
}