package Custom;
sub empty {
return '';
}
sub undefined {
return undef;
sub test_uc {
return uc $_[0];
1;