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