#!/usr/bin/perl

use 5.014;
use utf8;
use autodie;
use warnings;
use CPAN::Uploader;

my $uploader = CPAN::Uploader->new({
    user => 'gnustavo',
    password => '7xtmxsr9',
    debug => 1,
});

$uploader->upload_file('/home/gustavo/tmp/cpanupload.pl');