How to use upper case (or) lower case

#!F:\Perl\bin\perl -w
use strict;

my $text = 'india is a great country';
print "\n Before:", $text; # india is a great country
$text = uc $text; # To make $text to upper case
print "\n After :", $text,"\n";

my $text = 'india is a great country';
print "\n Before:", $text; # india is a great country
$text = lc $text; # To make $text to lower case
print "\n After :", $text,"\n";