Select Code to Download

use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
...
{
    print $response->header( $header );
}