programming-examples/perl/String/Output the initial in lowercase and uppercase.pl

while (<>) {
    print "Initial lowercase: " . lcfirst;
    print "Initial uppercase: " . ucfirst;
}