Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
# XP Grabber...
use strict;
...
sub hdl_char { my ($p, $str) = @_; }
  
sub hdl_def { }
  2. or download this
    my $url=new URI::URL 'http://www.perlmonks.org/index.pl';
$url->query_form(op => "login",node_id => "15848",user => $pm_user,pas
+swd => $pm_password,expires=> "+10y");
...
}
  
sub hdl_def { }
  3. or download this
    #!/usr/bin/perl

IRC::print "\0035:: Loading X-Chat Perlmonks XML Ticker ::\003 \n";
...
(@Inbox) = <INBOX>; close(INBOX);
if (@Inbox) { IRC::print @Inbox; }
IRC::add_timeout_handler(300000, getInbox); }