Select Code to Download

my @whirley = map chr, qw/32 176 177 178 219 178 177 176/;

sub whirley {
    $WHIRLEY_COUNT = 0 if ++$WHIRLEY_COUNT == @whirley;
    return $whirley[$WHIRLEY_COUNT];
}

    return "@whirley[$WHIRLEY_COUNT]";

    return $whirley[$WHIRLEY_COUNT];