Select Code to Download

bless($self,$class);

my $proto = shift;
my $class = ref($proto) || $proto;
# stuff to create self
bless($self,$class);

sub new
  {
...
          attributes => {},
      }, $class;
  }