#!usr/bin/perl
#URL Shorter 0.1
#Coded By Doddy H
 
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();
print "\n\n\n\n[+] URL : ";
chomp( my $url = <stdin> );
my $code = $nave->get( "http://tinyurl.com/api-create.php?url=" . $url );
if ( $code->is_success ) {
    my $link = $code->content;
    print "\n\n[+] URL Shorter : $link\n";
}
copyright();
 
sub head {
 
    print qq(
 
 
 @    @  @@@@@   @         @@@   @                         
 @    @  @    @  @        @   @  @              @          
 @    @  @    @  @        @      @              @          
 @    @  @    @  @        @      @ @@   @@@  @@ @@  @@@  @@
 @    @  @@@@@   @         @@@   @@  @ @   @ @  @  @   @ @ 
 @    @  @    @  @            @  @   @ @   @ @  @  @@@@@ @ 
 @    @  @    @  @            @  @   @ @   @ @  @  @     @ 
 @    @  @    @  @        @   @  @   @ @   @ @  @  @   @ @ 
  @@@@   @    @  @@@@@     @@@   @   @  @@@  @   @  @@@  @ 
 
 
 
                                    Coded By Doddy H
);
 
}
 
sub copyright {
    print "\n\n(C) Doddy Hackman 2012\n\n";
    <stdin>;
    exit(1);
}
 
# The End ?