Select Code to Download

#!/usr/bin/perl
use warnings;
...
  bless $self, $class;  
  return $self;  
}

$object->{attribute} = 'value'; #setter
print "$object->{attribute}\n";  #getter