Select Code to Download

sub initialize {
    no warnings 'once';
#    $DB::alias{p} = 's/^/use Data::Printer; /; eval $cmd';
    $DB::alias{p} = 's/^/use Data::Printer; /';
}