sub new
{
  my $package = shift; # implicitly passed by the new package syntax
  my %opts = @_;
  print $opt{foo};
}