move $_, $out for glob("$in/*.pl");