perl tr

I am attempting to have an upper case and lower case version of the input. I am using tr in perl, but I want to know if this can be done in a more efficient manner.
Here is my code:
sub getserver {
print "Please enter the server name: ";
$servername=<>;
chomp($servername);
$servername=~ tr/a-z/A-Z/;
$lowercase_servername= $servername;
$lowercase_servername=~ tr/A-Z/a-z/;

print "this is servername=$servername\n";
print "this is lowercase_servername=$lowercase_servername\n";
} #end getserver
#******************************************************************************

$servername = uc($servername);
$lowercase_servername = lc($servername);

Thanks I wasn't aware of these utilities.