#!/usr/bin/perl
use strict;use warnings;
sub how{{$_=ord($_)};{++$_};{$_=chr($_)}};sub
who(){push@_,pack("c*",101,118,97,108,32,60,
68,65,84,65,62);my$now=pop@_;what($now)};sub
what{my@what=(shift,'$',"U=",pack("c*",106,
97,112,104));when(@what)};sub when(){my
$when=join'',@_;why($when)};sub where{
join'',map{how(${_})}split'',shift}
;sub why{BEGIN{$^H|=0x20100|0x8000
;my$k=$\;$|++;$^H{q}=\&where}
;'I@OG',$/};$_="*J*A*P*H*"
;print

who;

__DATA__
eval $_="diotalevi is JAPH";