String Perl

#!/usr/bin/perl -w
$upper = "ALL UPPERCASE";
$lower = lc($upper);
print "$lower\n";