sub auth {
   my $username = shift @_;
   my $passwd = shift @_;

##</code><code>##

sub auth
{
    my ($class, $username, $passwd) = @_;

    # ... more code here
}