Help for this page

Select Code to Download


  1. or download this
    use strict;
use IO::Socket::INET;
...
}

1;
  2. or download this
    #!/usr/bin/perl -w
use strict;
...

my $status = mship::stat->('xxx.19.208.27', '9101');
print "\nStatus is $status\n";
  3. or download this
    port_name = unknown
remote_name = r_dairy.xxx.com
...
PORT = 9101

Status is Down
  4. or download this
    use strict;
use IO::Socket::INET;
...
}

1;