Select Code to Download

[$VAR1 = 
bless( {
                 '_protocol' => 'HTTP/1.1',
                 '_content' => ' ]

[',
                 '_rc' => 200,
                 '_headers' => bless( {
...
                                      }, 'HTTP::Request' )
               }, 'HTTP::Response' );
]

#!Perl
...
print "done\n";