Help for this page

Select Code to Download


  1. or download this
    my $name;
    for $name (qw(red blue green yellow orange purple violet)) {
    ...
    print "red:    ${\(red())}\n";
    __END__
    Modification of a read-only value attempted at - line 7.
    
  2. or download this
    our $name;
    for $name (qw(red blue green yellow orange purple violet)) {
    ...
    print "red:    ${\(red())}\n";
    __END__
    red:    <FONT COLOR=''></FONT>
    
  3. or download this
    ----- sub used inside loop that defined it ------
    trying out something wacky and wonderful: <FONT COLOR='something wacky
    + and wonderful'></FONT>