Select Code to Download

#!/usr/bin/perl
use strict;
...
Host: what.ever.com
User-Agent: Mozilla whatever...

my $response = $mech->request($request);