$DB::alias{px} = 's/px/DB::px/';
sub px {
    my $expr = shift;
    require Data::Printer;
    print Data::Printer::p($expr);
}

##</code><code>##

Data::Printer::p($expr);