Help for this page

Select Code to Download


  1. or download this
    my @localtime=localtime; 
my $hour=strftime ("%d.%m.%Y  %H:%M:%S", @localtime);
our $receive_T->insert('end',$hour."\n");
  2. or download this
    $receive_T = $receive_Tk->ROText(-relief=>'groove',-width=>72,-height=
+>20,-font=>'Courier 8 bold')->pack(); 
$receive_T->repeat(5000,\&Receive2);
  3. or download this
    #!/usr/bin/perl
use strict;
use Pod::Usage;
...
        }
    } 
}