package Rubber;
@ISA = qw(Thingy);
use vars $PATTERN = q(...);
1;