Select Code to Download

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

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

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

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

my $name = "frodo";
$name = Common->get_uppercase($name);

package Common;
sub get_uppercase {
...
   return uc($name);
}
1;