*Config::DBI::error_handler = eval "&$symbolic_ref";

DBI->connect($DSN, $User, $Pass, 
      { HandleError => Config::DBI::error_handler } );

##</code><code>##

package M;

sub x {
  print "sub __PACKAGE__x";
}

sub y {
  print "sub __PACKAGE__y";
}

1;

package N;

$s = 'M::y';

*M::x = eval "&$s";

M::x();


##</code><code>##


 ~/hacks/config-dbi/scripts $ perl symref.pl
Undefined subroutine &main::1 called at symref.pl line 19.
sub __PACKAGE__y        ~/hacks/config-dbi/scripts $