package Object;                   
                                  
use strict;                       
use warnings;                     
                                  
sub new {                         
                                  
        my ($class) = @_;         
        my $self = {              
                _object => $class,
        };                        
        bless $self, $class;      
        return $self;             
}                                 
                                  
sub toString {                    
        my $self = shift;         
        return $self->{'_object'};
}                                 
                                  
1