or download this
#!/usr/bin/perl
$a='grep';@a=(g..r,e..p);printf("%c%c%c%c",($a=~y;grep;map;)+70,65,len
+gth(join(';',reverse(split //,++$a)))+$#a+50,$a=~s;mapq;grep\;grep\;g
+rep;+56+$a=~y;g;j;+$a=~y;r;a;+$a=~y;e;m;+$a=~y;p;h;+$a=~tr;m;p;);$a=(
+split/;/,$a)[0];