sub AUTOLOAD
{
    our $AUTOLOAD;
    my $self        = shift;
    my ($meth_name) = $AUTOLOAD =~ /::(\w+)$/;
    my $method      = $self->{_ftp}->can( $meth_name );
    return $self->{_ftp}->$method( @_ ) if $method;

    # handle error here
}