Select Code to Download

print $switch $byte        # prints one byte to the telnet connection.
+  Confirmed as written by checking DUMP file
sysread($switch, $byte2, 1)    # reads in one byte from the telnet inp
+ut buffer.

-print $switch $byte
+$switch->put($byte); ( telnet method )

-while (sysread($switch, $byte2, 1))
-{
-    print $client $byte2;    
-}
+sleep(50)

#!/opt/DKBperl/bin/perl
$|=1;
...
    print "..ok\n";
    return $t;
}