#!/usr/bin/perl -w
use strict;
 
my $uclc = shift or Usage();

# fixed small bug
Usage() unless ($uclc eq 'lc' or $uclc eq 'uc');

# to speed up the loop (no string compare on every line)
my $lc = $uclc eq 'lc';
 
while (<>) {
  print $lc ? lc : uc;
}
 
sub Usage {
   die << EO_USE;
Usage: uclc.pl (lc|uc) [infile]
reads from STDIN if no infile given
EO_USE
}