Language Basics Perl

#!/usr/local/bin/perl 
print ("Enter a line of input:\n"); 
$inputline = 
print ("uppercase: \U$inputline\E\n"); 
print ("lowercase: \L$inputline\E\n"); 
print ("as a sentence: \L\u$inputline\E\n");