#an FTP put
#open the file and read the contents
my $content;
if (open DATA_READER, "$data_file") {
     $content = join ("", <DATA_READER>);
     close DATA_READER;
} else {
     warn "UNABLE TO READ $data_file, upload will be empty!  $!\n";
}

my $ua;
$ua = LWP::UserAgent->new();      
$ua->agent("$0/0.1 ".$ua->agent);
my $req = HTTP::Request->new('PUT',"$url",undef,"$content");
my $result = $ua->request($req);