Select Code to Download

#!/usr/bin/perl
use warnings;
...
require "common.lib";
my $name = "frodo";
$name = cm::get_uppercase($name);

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