Cfwp-fio

 view release on metacpan or  search on metacpan

script/up  view on Meta::CPAN

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

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



( run in 1.215 second using v1.01-cache-2.11-cpan-98e64b0badf )