sub upper {
my $string = (shift)->value;
return uc($string);
}
1;