Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  # return the resulting rainbow string. :)
  return $rainbow;
}

print &text_tone( "Dog and Pony tries to learn some perl.", "#009966",
+ "#cc3333" );