# use_oo.pl
#!/usr/bin/perl  
  
use strict;  
use warnings;  
  
use MyObject  
  
my $object_instance = MyObject -> new();  
print "Object is: ", $object_instance,"\n";  
$object_instance -> set_state ( "here is a new state" );  
print "Object state: ", $object_instance -> get_state(),"\n";