Select Code to Download

if (Win32::OLE->LastError()) {
  print "Virtual directory was not created ($!).\n";
} else {
  print "Virtual directory created successfully.\n";
}