Help for this page

Select Code to Download

Select or download this

use strict;
#use mship;
...
    my $stats= rand() > 0.5 ? "Up" : "Down";
    $text->insert( 'end', "$remote_name is $stats\n");
}

Select or download this

use strict;
#use mship;
...
    my $stats= rand() > 0.5 ? "Up" : "Down";
    $text->insert( 'end', "$remote_name is $stats\n");
}