C:\>perl -E "sub strinc {
           $strToBeInc = shift; 
           $strToBeInc++; 
           return $strToBeInc;
} 
my $str='a'; 
my $foo = strinc($str); 
say $foo;"
b