#!/usr/bin/perl

my $Usage = "Usage: $0 [<] input.file > output.file\n";
die $Usage if (( @ARGV > 0 ) ^ ( -t STDIN ));

while (<>) {
    tr/a-zA-Z/A-Za-z/; # invert case, just for fun
    print;
}