Propably you exchanged the parameters of encode?

    print $encoding ? encode($encoding, $string) : $string;
[download]