Converting to Upper/Lower Case

#!/usr/local/bin/perl
print ("Enter a line of input:\n");
$inputline = <STDIN>;
chop ($inputline);
# \U converts to uppercase
# \L converts to lowercase
# \E ends the effect of U and L
print ("upper case: \U$inputline\E\n");
print ("lower case: \L$inputline\E\n");
print ("as a sentence: \L\u$inputline\E\n");