Select Code to Download

$counter->lock;

$counter->dec while $counter->value > $DEFAULT_VALUE;

$counter->unlock;

sub reset {   
    my($self,$default) = @_;

...
    }
    $self->{'value'}; # return value
}

#!/usr/bin/perl -w

use strict;
...

<td background="images/$BACKGROUND[$c]">
EndOfHTML