package F;
my %D = ( foo => 1 );
sub new { my ($c,%p) = @_; my %s = ( %D, %p ); return bless \%s, $c; }
sub f_1 { my $s = shift; ... }

package main;
my $f = new F;
print $f->f_1('blah');