use Stoplight;


$sl = new Stoplight;

$val = $sl -> {'color'};

print("color: $val \n");

$sl->{'color'} = "green";

$val = $sl -> {'color'};

print("color: $val \n");

$sl -> change();

$val = $sl -> {'color'};

print("color: $val \n");