package Common;
use warnings;
use strict;
use base 'Exporter';
our @EXPORT_OK=qw(get_uppercase);
sub get_uppercase {
   my ($class, $name) = @_;
   return uc($name);
}
1;