[Perl] Codificator 0.2

#!usr/bin/perl
#Codificator 0.2
#Coded By Doddy H
#This tool encode in :
#
#Hex
#MD5
#Base64
#ASCII
#URL
#
#

use Digest::MD5;
use Digest::SHA1;
use MIME::Base64;
use URI::Escape;

sub head {
    clean();
    print q(



  @@@            @ @   @ @             @           
 @   @           @    @                @           
@       @@@   @@ @ @ @@@ @  @@@   @@@ @@@  @@@  @ @
@      @   @ @  @@ @  @  @ @   @ @   @ @  @   @ @@ 
@      @   @ @   @ @  @  @ @      @@@@ @  @   @ @  
@      @   @ @   @ @  @  @ @     @   @ @  @   @ @  
 @   @ @   @ @  @@ @  @  @ @   @ @  @@ @  @   @ @  
  @@@   @@@   @@ @ @  @  @  @@@   @@ @ @@  @@@  @  



);
}

head();
print "\n[+] Options\n\n";
print q(
1 - MD5 encode
2 - Base64 encode
3 - Base64 decode
4 - Ascii encode
5 - Ascii decode
6 - Hex encode
7 - Hex decode
8 - URL encode
9 - URL decode
10 - Exit

);
while (true) {
    print "\n\n[+] Option : ";
    chomp( my $op = <stdin> );
    print "\n\n";
    if ( $op eq 1 ) {
        print "[+] String : ";
        chomp( my $string = <stdin> );
        print "\n\n[+] MD5 : " . Digest::MD5->md5_hex($string) . "\n\n";
    }
    elsif ( $op eq 2 ) {
        print "[+] String : ";
        chomp( my $string = <stdin> );
        print "\n\n[+] Base64 : " . encode_base64($string);
    }
    elsif ( $op eq 3 ) {
        print "[+] String : ";
        chomp( my $string = <stdin> );
        print "\n\n[+] Base64 Decode : " . decode_base64($string) . "\n";
    }
    elsif ( $op eq 4 ) {
        print "[+] String : ";
        chomp( my $string = <stdin> );
        print "\n\n[+] Ascii : " . join ',', unpack "U*", $string;
        print "\n";
    }
    elsif ( $op eq 5 ) {
        print "[+] String : ";
        chomp( my $string = <stdin> );
        print "\n\n[+] Ascii decode : " . join q[], map { chr } split q[,],
          $string . "\n";
        print "\n";
    }
    elsif ( $op eq 6 ) {
        print "[+] String : ";
        chomp( my $string = <stdin> );
        $hex = "0x";
        for ( split //, $string ) {
            $hex .= sprintf "%x", ord;
        }
        print "\n\n[+] Hex : " . $hex . "\n";
    }
    elsif ( $op eq 7 ) {
        print "[+] String : ";
        chomp( my $string = <stdin> );
        $string =~ s/^0x//;
        $encode = join q[], map { chr hex } $string =~ /../g;
        print "\n\n[+] Hex decode : " . $encode . "\n";
    }
    elsif ( $op eq 8 ) {
        print "[+] String : ";
        chomp( my $string = <stdin> );
        print "\n\n[+] URL Encode : " . uri_escape($string) . "\n";
    }
    elsif ( $op eq 9 ) {
        print "[+] String : ";
        chomp( my $string = <stdin> );
        print "\n\n[+] URL Decode : " . uri_unescape($string) . "\n";
    }
    elsif ( $op eq 10 ) {
        copyright();
        exit(1);
    }
    else {
        print "[+] Write good stupid !\n";
    }
}

sub clean {
    my $os = $^O;
    if ( $os =~ /Win32/ig ) {
        system("cls");
    }
    else {
        system("clear");
    }
}

sub copyright {
    print "\n-- == Doddy Hackman 2012 == --\n\n";
    <stdin>;
    exit(1);
}

# The End ?