#!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;
}