print "The colour is ", colour (), "\n"; ... my $colour = "red"; sub colour {$colour}