open my $up, "<", "$_[0]" or die "Something went wrong: ".$!; binmode $up;
my $ck = Digest::MD5->new; $ck->addfile($up); close $up;
my $us = HTTP::Headers->new; $us->header(Content_Type => 'multipart/form-data');
my $req = HTTP::Request->new('POST',"https://".$server."/file_bucket_file/md5/".$_[1]."/".$ck->hexdigest, $us, [ file => ["$_[0]"] ]);
print Dumper($req);
my $res = $ua->request($req);
die "Something went wrong: ".$res->status_line unless $res->is_success;