sub Red
{
  sub LittleRed{'red'};  # sub within a sub
  LittleRed;             # returns 'red'
}
print "\nPerl is getting confused here..." . Red;
print "\n\n";

print LittleRed;