#!usr/bin/perl
print q{
################################
## / MD5 CREATOR / ##
## ##
## ~Coded by WizKhalifou~ ##
################################
};
return1:;
use Digest::MD5 qw( md5_hex );
my $md5x;
print "\nEnter your word:~# ";
$md5x = <STDIN>;
chomp($md5x);
print "Hash is: ", md5_hex("$md5x"), "\n\n";
print "Do you want exit the programm ? (y/n)";
$choice = <STDIN>;
chomp($choice);
if ($choice eq "y" || $choice eq "Y") {
exit();
} else {
goto return1;
}WizKhalifou