Help for this page
Select Code to Download
Select
or
download this
sub output { my $self = shift; $$self .= uc shift; }