package a;
sub new{return bless {db=>"db"}, shift} 
sub foo{my $self=shift;say "db=$self->{db}\nParameter:@_"};

package main;
my $x=a->new();
$x->foo("x", "y");