#!/usr/bin/perl -w
use strict;
defined($ARGV[0]) ? print uc($ARGV[0]) , "\n" : print "$0: Usage [str]\n";
