Works for me:
[EMAIL PROTECTED]:~/att> perl -d -Mencoding="iso-8859-2" -e 'print "hello
there($$)\n"; print "etc...\n";'
Loading DB routines from perl5db.pl version 1.19
Editor support available.
Enter h or `h h' for help, or `man perldebug' for more help.
main::(-e:1): print "hello there($$)\n"; print "etc...\n";
DB<1> use encoding ("iso-8859-2");
DB<2> M
'/usr/lib/perl5/site_perl/5.8.0/i586-linux-thread-multi/auto/Term/ReadLine/Gnu/XS/autosplit.ix'
=>
'/usr/lib/perl5/site_perl/5.8.0/i586-linux-thread-multi/auto/Term/ReadLine/Gnu/XS/autosplit.ix'
'AutoLoader.pm' => '5.59 from /usr/lib/perl5/5.8.0/AutoLoader.pm'
'Carp.pm' => '1.01 from /usr/lib/perl5/5.8.0/Carp.pm'
'Config.pm' => '/usr/lib/perl5/5.8.0/i586-linux-thread-multi/Config.pm'
'DynaLoader.pm' => '1.04 from
/usr/lib/perl5/5.8.0/i586-linux-thread-multi/DynaLoader.pm'
'Encode.pm' => '1.75 from
/usr/lib/perl5/5.8.0/i586-linux-thread-multi/Encode.pm'
'Encode/Alias.pm' => '1.32 from
/usr/lib/perl5/5.8.0/i586-linux-thread-multi/Encode/Alias.pm'
'Encode/Byte.pm' => '1.22 from
/usr/lib/perl5/5.8.0/i586-linux-thread-multi/Encode/Byte.pm'
'Encode/Config.pm' => '1.06 from
/usr/lib/perl5/5.8.0/i586-linux-thread-multi/Encode/Config.pm'
'Encode/Encoding.pm' => '1.30 from
/usr/lib/perl5/5.8.0/i586-linux-thread-multi/Encode/Encoding.pm'
'Exporter.pm' => '5.566 from /usr/lib/perl5/5.8.0/Exporter.pm'
'PerlIO/encoding.pm' => '0.06 from
/usr/lib/perl5/5.8.0/i586-linux-thread-multi/PerlIO/encoding.pm'
'Term/ReadLine.pm' => '1.00 from /usr/lib/perl5/5.8.0/Term/ReadLine.pm'
'Term/ReadLine/Gnu.pm' => '1.13 from
/usr/lib/perl5/site_perl/5.8.0/i586-linux-thread-multi/Term/ReadLine/Gnu.pm'
'Term/ReadLine/Gnu/XS.pm' =>
'/usr/lib/perl5/site_perl/5.8.0/i586-linux-thread-multi/Term/ReadLine/Gnu/XS.pm'
'XSLoader.pm' => '0.01 from
/usr/lib/perl5/5.8.0/i586-linux-thread-multi/XSLoader.pm'
'base.pm' => '1.03 from /usr/lib/perl5/5.8.0/base.pm'
'encoding.pm' => '1.35 from
/usr/lib/perl5/5.8.0/i586-linux-thread-multi/encoding.pm'
'perl5db.pl' => '1.19 from /usr/lib/perl5/5.8.0/perl5db.pl'
'strict.pm' => '1.02 from /usr/lib/perl5/5.8.0/strict.pm'
'vars.pm' => '1.01 from /usr/lib/perl5/5.8.0/vars.pm'
'warnings.pm' => '1.00 from /usr/lib/perl5/5.8.0/warnings.pm'
'warnings/register.pm' => '1.00 from
/usr/lib/perl5/5.8.0/warnings/register.pm'
DB<2> c
hello there(3653)
etc...
Debugged program terminated. Use q to quit or R to restart,
use O inhibit_exit to avoid stopping after program termination,
h q, h R or h O to get additional info.
DB<2> q
[EMAIL PROTECTED]:~/att>
