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

##</code><code>##

open my $up, "<", "$_[0]" or die "Something went wrong: ".$!; binmode $up;
my $ck = Digest::MD5->new; $ck->addfile($up);
my $req = HTTP::Request->new('PUT', "https://".$server."/file_bucket_file/md5/".$_[1]."/".$ck->hexdigest, $as, ...?);
my $res = $ua->request($req);
close $up;
die "Something went wrong: ".$res->status_line unless $res->is_success;