Select Code to Download

package Thingy;

...
   bless $thingy, $class;
}
1;

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

use Rubber;
my $line = ...;
my $thing = Rubber->new($line);