#!/usr/bin/env perl
use Modern::Perl;

$_ = $ARGV[0];
chomp;
say "Uploading $_";
`time curl --progress-bar -F "file=\@$_" 'http://a.ddot.cc:8899' | tee /dev/null`