: : $d = ;: Your $d here has a newline character on the end...: : : if (opendir(D, "/$d")): ...which is why this fails.: : Before you do opendir, you need to put this line:: : chomp $d;: : Which will strip any newline character off the end, if it's there.: : Jonathan: ###: for(74,117,115,116){$::a.=chr};(($_.='qwertyui')&&: (tr/yuiqwert/her anot/))for($::b);for($::c){$_.=$^X;: /(p.{2}l)/;$_=$1}$::b=~/(..)$/;print("$::a$::b $::c hack$1.");