Select Code to Download

...
<%once>
...
print $u->GetUserList();
</%once>
...

package CMS::Users;
use Digest::MD5 qw(md5);
...
    return "Sub call worked. I'm from: $self";
}
1;