burnersk+2009-01-29 11:03:02--

Code (perl): (dl )

if ($charset && (lc($charset) ne 'utf-8')) { if (!eval { $output = encode($charset, $output); }) { croak($!); } }

was willst du hier mit der variable $! anfangen?
der eval-error steht in $@, wie du in
perldoc -f eval
nachlesen kannst.