Select Code to Download

#!/usr/bin/perl -w

...
while ( my ($key, $value) = each(%getUserInfo) ) {
     print "$key => $value\n";
}

package ChatUtils;

...

__END__