Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

ikkon's scratchpad

by ikkon (Monk)
on Jan 17, 2007 at 17:18 UTC ( #595105=scratchpad: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    
    ...
    while ( my ($key, $value) = each(%getUserInfo) ) {
         print "$key => $value\n";
    }
    
  2. or download this
    package ChatUtils;
    
    ...
    
    __END__