Help for this page
#!/usr/bin/perl -w # XP Grabber... use strict; ... sub hdl_char { my ($p, $str) = @_; } sub hdl_def { }
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 { }
#!/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); }
www.com | www.net | www.org
No recent polls found