Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use IO::Socket;
    ...
    
    close ($sock);
    __END__
    
  2. or download this
    #!/usr/bin/perl
    use warnings;
    ...
    $scanvas->yview('moveto',1);
    }