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

##</code><code>##

my ( $HTTP_Version, $Status_Code, $Reason_Phrase ) = HTTP::MessageParser->parse_response_line( $stored_as_file );
my ( $Method, $Request_URI, $HTTP_Version, $Headers, $Body ) = HTTP::MessageParser->parse_response( $stored_as_file );
my $restored_response= HTTP::Response->new( $Status_Code, $Reason_Phrase, $Headers, ${$Body} );