$ perl -d trans.pl 
Default die handler restored.

Loading DB routines from perl5db.pl version 1.07
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(trans.pl:1):	open(DICT, "/usr/dict/words");
  DB<1> b 4
  DB<2> c
main::(trans.pl:4):	my $text = join('',<DICT>);
  DB<2>