#!perl -w use strict; package Sequence; my $self = bless {name=>"repeat",nucleotides=>"CAT" }, "Sequence"; print "\$self is a ", ref($self), "\n";