Select Code to Download

use File::Fetch;
use LWP::UserAgent ();
...
$ua->default_header( USER_AGENT =>'COMPANY admin@example.com' );
print "Now downloading the file...\n";
my $res = $ua->mirror( $url, $filename );

use LWP::UserAgent ();
use DBI;
...
        print "Failure: $resp->{status}, $resp->{reason}\n";
    }
}