## process.pl
my $var = shift @ARGV;
$var = uc($var);
print $var;