package Common;
sub get_uppercase {
   my ($class, $name) = @_;
   return uc($name);
}
1;