- or download this
#!/usr/bin/perl
use warnings;
...
my $name = "frodo";
$name = get_uppercase($name);
- or download this
sub get_uppercase {
my $name = shift;
return uc($name);
}
1;
- or download this
#!/usr/bin/perl
use warnings;
...
my $name = "frodo";
$name = Common->get_uppercase($name);
- or download this
package Common;
sub get_uppercase {
...
return uc($name);
}
1;