El codigo :
Código
#!usr/bin/perl #Imageshack Uploader 0.1 #Coded 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); head(); unless ( $ARGV[0] ) { } else { my $your_key = "YOURKEY"; #Your API Key my $code = $nave->post( "https://post.imageshack.us/upload_api.php", Content_Type => "form-data", Content => [ key => $your_key, fileupload => [ $ARGV[0] ], ] )->content; if ( $code =~ /"image_link":"(.*?)"/ ) { } else { } } copyright(); sub head { } sub copyright { } #The End ?