Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

...
    }
    say ("color is ", $color, "\n");
}

Select or download this

~/perl/ex/perlmonks: perl ./adt5.pl 
Current time: 1372263479
...
./adt2.pl, 1372262161
color is green