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;

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;
use CGI::Carp qw(fatalsToBrowser);
use Common qw(get_uppercase);

my $name = "frodo";
$name = get_uppercase($name);