I get

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

Enter h or 'h h' for help, or 'perldoc perldebug' for more help.

Global symbol "@filename" requires explicit package name at dberror.pl
+ line 60.
Execution of dberror.pl aborted due to compilation errors.
 at dberror.pl line 69.
[download]

Update : You need to change this loop too otherwise it processes the first line indefinitely !

  my $line = <FILE>;
  while( defined $line ) {
  ..
  }
[download]

poj