#!/usr/local/bin/perl

print ("Enter a line of input:\n");
$inputline = <STDIN>;
chop ($inputline);
print ("upper case: \U$inputline\E\n");
print ("lower case: \L$inputline\E\n");
print ("as a sentence: \L\u$inputline\E\n");
