sub new {

    my ($pkg, $server, $user, $timeout, @args) = @_;

    my $self = {
        %fields
    };

    my $ftp = bless $self, $pkg;

    $ftp->server($server);
    $ftp->user($user);
    $ftp->timeout($timeout);

    $ftp->initialize();

    return $ftp;
}