$ perl -MDDS -MTime::HiRes=sleep  -e " Dump\&sleep"
$CODE1 = \&Time::HiRes::sleep;

$ perl -MDDS -MTime::HiRes=sleep  -le " print main->can(q/sleep/)"
CODE(0x9a38ac)

$ perl -MDDS -MTime::HiRes=sleep  -e " Dump( main->can(q/sleep/) )"
$CODE1 = \&Time::HiRes::sleep;