sub get_uppercase {
   my $name = shift;
   return uc($name);
}
1;