String Perl

#!/usr/bin/perl -w
$lower = "all lowercase";
$upper = uc($lower);
print "$upper\n";