sub new {
   my ($class, %options) = @_;

   my $user   = delete $options{user};
   my $passwd = delete $options{passwd};
   ...

   my $self = $class->SUPER::new(%options);
   $self->{user}   = $user;
   $self->{passwd} = $passwd;
   ...
   return $self;
}