Help for this page
#!/usr/bin/perl -w ... while ( my ($key, $value) = each(%getUserInfo) ) { print "$key => $value\n"; }
package ChatUtils; ... __END__
www.com | www.net | www.org
No recent polls found