Select Code to Download

#!/usr/bin/perl -wT

...
    }
    return @dir;
}

$_=crypt("hssq","cr");m-[funki.g.jim.bed.wax]-i;$_=eval"$`\(\"czEW\",\
+"pr\"\).$`(\"CCSBD\",\"Cl\")";s+ltO8f+ +;s=kt|g|m.|YA=\"=g;s|[ej]|\"\
+.\"|g;eval;