Help for this page

Select Code to Download


  1. or download this
    if ( @$ref){
$textsc->insert('end',"Lets see Wich Ips are ON...\n");
...
$mw->update;

# etc etc for all your print statements
  2. or download this
    #!/usr/bin/perl
use warnings;
...
$mw->repeat( 1000, \&pingagain );
$mw->update;
MainLoop();
  3. or download this
    #!/usr/bin/perl -w
use Tk;
...
    $widgett->yview('end');

}