$VAR1 = bless( {
                 '_content' => '',
                 '_rc' => 500,
                 '_headers' => bless( {
                                        'client-date' => 'Tue, 27 May 2008 12:26:17 GMT',
                                        'content-type' => 'application/octet-stream',
                                        'last-modified' => 'Tue, 15 May 2007 14:51:19 GMT',
                                        'server' => '--------- Welcome to Pure-FTPd [privsep] [TLS] ----------',
                                        'client-request-num' => 1
                                      }, 'HTTP::Headers' ),
                 '_msg' => 'FTP close response: 500 Error during write to data connection
?
',
                 '_request' => bless( {
                                        '_content' => '',
                                        '_uri' => bless( do{\(my $o = 'ftp://ftp.iae.nl/100MB.bin')}, 'URI::ftp' ),
                                        '_headers' => bless( {
                                                               'user-agent' => 'libwww-perl/5.805'
                                                             }, 'HTTP::Headers' ),
                                        '_method' => 'HEAD'
                                      }, 'HTTP::Request' )
               }, 'HTTP::Response' );