package coolobject;
use strict;

sub new{
	my $type = shift;
        my $class  = ref($type)|| $type;
	my $self;

	$self->{name} = 'new';
	bless ($self,$class);

	if ($self->loaddata()){
		return $self;
       ......
}