$ perl -MO=Deparse,-p -e " IMPORT { warn(666); } "
do {
    warn(666)
}->IMPORT;
-e syntax OK

$ perl -MO=Deparse,-p -e " sub IMPORT { warn(666); } "
sub IMPORT {
    warn(666);
}
-e syntax OK