Select Code to Download

use strict;

...


1;

#!/usr/bin/perl -w
use strict;
...

my $status = mship::accepts_conn('xxx.19.208.27', '9101') ? "Up" : "Do
+wn";
print("Status: $status\n");