sub makeUserSelectedObjectDance {
   # ENVIRONMENT DEPENDENT!!!
   # any class in @INC that has a dance method will be accepted
   my ($sClass) = @_;
   return if ! ($sClass->can('dance'));

   my $oDancer = $sClass->new();
   $oDancer->dance();
   return $oSomething;
}