mg

sub c{chr(hex(shift))}
sub f{foreach(@_){print c $_}sleep 1;}
sub u{unpack "(A2)*", shift}
for(0..3) {
f u "686170707920626972746864617920746f20796f75";
$_==2&&f u "2c2064656172204d6172636f";
f $_!=3 ? "2c" : 21;
f u "0d0a";
}