Md5 Encrypter

#!/usr/bin/perl
# Dev by CrashBandicot From TeaM MosTa
# Gr33tz to "Boualem" - Saber-Dz  - Ma3str0-Dz - CoupDeGrace - xMjhad - M-c0d3r - k2ll3d - tn_Scorpion - Tn_pirate - Kedans-DZ
use Digest::MD5;
use LWP::Simple;
use HTTP::Request;
system('cls');
system('title Md5 DecoDer from TeaM MosTa');
system('color a');
print "
\t

\t :::==== :::===== :::====  :::=======
\t :::==== :::      :::  === ::: === ===
 \t  ===   ======   ======== === === ===
 \t  ===   ===      ===  === ===     ===
 \t  ===   ======== ===  === ===     ===

 \t:::=======  :::====  :::===  :::==== :::====
 \t::: === === :::  === :::     :::==== :::  ===
 \t=== === === ===  ===  =====    ===   ========
 \t===     === ===  ===     ===   ===   ===  ===
 \t===     ===  ======  ======    ===   ===  ===


      \n";
print "\tMd5 Encoder !!!!! \n";
print "\tby CrashBandicot From TeaM MosTa\n";
print "Enter text:";
$fuck=<STDIN>;
chomp $fuck;
print Digest::MD5->md5_hex("$fuck")