>perl -wMstrict -le
"{ package Zelda;
   sub type { shift;  return 'prince'; }
   }
 ;;
 { package Mario;
   sub type { shift;  return 'hero'; }
   }
 ;;
 { package Kupa;
   sub type { shift;  return 'villan'; }
   }
 ;;
 foreach my $pkg (qw/Zelda Mario Kupa/) {
   printf qq{$pkg is a %s \n}, $pkg->type;
   }
"
Zelda is a prince
Mario is a hero
Kupa is a villan