# $language = "PerlScript"
# $interface = "1.0"

# A simple login script using Perlscript.

# Enable error warnings
#
use Win32::OLE;
Win32::OLE->Option(Warn => 3);

sub main {
$false = 0;
$snt->{'WindowState'} = 1; 
if($snt->Connect("\\myCustom\\Telnet"))
     {
     if($snt->WaitForString("login:",30))
          {
          $snt->Send("zkrr01\015");
          if($snt->WaitForString("Password:",30))
               {
               $pass = $snt->Prompt("Password","Enter Password","",TRUE);
               $snt->Send("$pass\015");
               if($snt->WaitForString("\$",30))
                    {
                    $snt->Send("ls\015");
                    } 
               }
          }
     while ($snt->{'Connected'})
          {
          }
     $Answer = $snt->MessageBox("Disconnected, quit SecureNetTerm application?","Login Script",4);
     if($Answer == 6)
          {
          $snt->QuitApp();
          }
     }
}