Select Code to Download

package Common;
use warnings;
...
   return uc($name);
}
1;

#!/usr/bin/perl
use warnings;
...

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