$self->{ftp} = Net::FTP->new(
    $self->{'host'},
    Port    => $self->{'port'},
    Timeout => $self->{'timeout'},
    Debug   => $self->{'debug'}
);
unless($self->{ftp}) { ... }