Upper case to Lower Case In Perl

Program Code:

#!/Perl/bin/perl

print("Enter a sentence to convert into lower form\n");
while($input=<STDIN>)
{
$input=~ tr/A-Z/a-z/;
print($input);
}




Output: