#!/usr/bin/perl -w
use strict;use threads;use Time::HiRes('sleep');
$| = 1;my @j=('creaJ','klrnu','e  os','rHPtt','!aeh ');
my (%d);foreach (@j){$d{$_}=threads->create('x',$_);}foreach (@j){my
$x=$d{$_}->join();}sub x{my $i=shift;my $t;while($t=substr($i,-1,1)){
print $t;chop($i);sleep(.1);}return($_);}

##</code><code>##

my $a='62696c6c77667269656e6440676d61696c2e636f6d';
while ($a=~m/(^.{2})/s)
{print unpack('A',pack('H*',"$1"));$a=~s/^.{2}//s;}