my $foo = Foo->new({pid => $$});

print $foo->pid;

package Foo;
use Class::MethodMaker
   new_hash_init => 'new',
   get_set       => [ qw /foo bar pid/ ]
;