#!/usr/bin/perl
# Convert the input to upper case.

while (<>) {print uc}