a 1fpcq

$VAR1 = bless( \*Symbol::GEN1, 'Net::FTP' );
*Symbol::GEN1 = {
                  'io_sock_nonblocking' => 0,
                  'io_socket_domain' => 2,
                  'io_socket_proto' => 6,
                  'io_socket_timeout' => 120,
                  'io_socket_type' => 1,
                  'net_cmd_code' => '550',
                  'net_cmd_debug' => 0,
                  'net_cmd_lines' => [],
                  'net_cmd_partial' => '',
                  'net_cmd_resp' => [
                                     '"/test" directory created.'                                    ],
                  'net_ftp_blksize' => 10240,
                  'net_ftp_host' => 'xxxxxxxxxx',
                  'net_ftp_localaddr' => undef,
                  'net_ftp_passive' => 1,
                  'net_ftp_type' => 'A'
                };

ETC....