Código
#!usr/bin/perl #AnonFiles Uploader #Original author: $ DoC #Translations made by Doddy H # #ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd # use LWP::UserAgent; my $nave = LWP::UserAgent->new; $nave->agent( "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12" ); $nave->timeout(5); unless ( $ARGV[0] ) { } else { my $code = $nave->post( "https://anonfiles.com/api?plain", Content_Type => "form-data", Content => [ file => [ $ARGV[0] ] ] )->content; if ( $code =~ /https:\/\/anonfiles\.com\/file\// ) { } else { } } #The End ?