sub new { my ($class, %args) = @_; return 'Error in syntax usage' unless _arg_validation(\%args); my $self = { ua => _mk_ua(), login => $args{login}, password => $args{password}, dir => $args{dir}, threads => 30, }; bless $self, $class; die 'ERROR WITH CONNECTION AUTH' unless $self->_connection_try(); return $self; }