use strict;
use LWP;
use LWP::UserAgent;
#use diagnostics;
# Turn off in production code capitalize expects to
# receive one argument. It returns that argument,
# capitalized, using Perl's built-in
# capitalization (uc) function.

sub capitalize
{
    my $self = shift;
    my $word = shift;

    return uc ($word);
}