Select Code to Download

use strict;
use warnings;
...
    use Data::Dumper;    
    print Dumper($obj);

$VAR1 = bless( {                                                      
+                                                                     
+                                      
...
                 'name' => 'apple'                                    
+                                                                     
+                                      
               }, 'Fruit' );