Gett is a clutter-free file sharing service that allows its users to share up to 2 GB of files for free. They recently implemented a REST API; Net::API::Gett is a binding for the API. See http://ge.tt/developers for full details and how to get an API key.
# Get API Key from http://ge.tt/developers
my $gett = Net::API::Gett->new(
api_key => 'GettAPIKey',
email => 'firstname.lastname@example.org',
password => 'mysecret',
my $file_obj = $gett->upload_file(
filename => "ossm.txt",
contents => "/some/path/example.txt",
title => "My Awesome File",
encoding => ":encoding(UTF-8)"
say "File has been shared at " . $file_obj->getturl;
# Download contents
my $file_contents = $file_obj->contents();
open my $fh, ">:encoding(UTF-8)", "/some/path/example-copy.txt"
or die $!;
print $fh $file_contents;
# clean up share and file(s)
my $share = $gett->get_share($file->sharename);