Select Code to Download

use HTTP::Parser;
my $parser = HTTP::Parser->new(response => 1);
my $status = $parser->add( $stored_as_file );
my $restored_response = $parser->object();

my ( $HTTP_Version, $Status_Code, $Reason_Phrase ) = HTTP::MessagePars
+er->parse_response_line( $stored_as_file );
my ( $Method, $Request_URI, $HTTP_Version, $Headers, $Body ) = HTTP::M
+essageParser->parse_response( $stored_as_file );
my $restored_response= HTTP::Response->new( $Status_Code, $Reason_Phra
+se, $Headers, ${$Body} );