package Apache::Upcase;

use strict;
use Apache::Forward ();
use vars qw(@ISA $VERSION);
@ISA = qw(Apache::Forward);
$VERSION = '1.00';

sub PRINT {
    my $self = shift;
    $self->forward(map { uc $_ } @_);
}
 
1;
__END__