Select Code to Download

$code = $database{$AUTOLOAD};
$pseudo_file = get_pseudo_for($AUTOLOAD); # like "Database_entry_for_p
+kg::foo"
eval qq{#line 1 "$pseudo_file"\n$code};
...

whatever error from Database_entry_for_pkg::foo, line 14