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`