Select Code to Download

$ua = LWP::UserAgent->new(); 
$as = HTTP::Headers->new; $as->header('Accept' => 's');
$req = HTTP::Request->new('GET', "https://$server/production/file_buck
+et_file/md5/$md5", $as);
$res = $ua->request($req);
return $res->content;

open my $up, "<", "$_[0]" or die "Something went wrong: ".$!; binmode 
+$up;
my $ck = Digest::MD5->new; $ck->addfile($up);
...
my $res = $ua->request($req);
close $up;
die "Something went wrong: ".$res->status_line unless $res->is_success
+;