use Acme::Playmate;

  my $playmate = new Acme::Playmate("2003", "04");

  print "Details for playmate " . $playmate->{ "Name" } . "\n";
  print "Birthdate" . $playmate->{ "BirthDate" } . "\n";
  print "Birthplace" . $playmate->{ "BirthPlace" } . "\n";
  print "Bust" . $playmate->{ "Bust" } . "\n";
  print "Waist" . $playmate->{ "Waist" } . "\n";
  print "Hips" . $playmate->{ "Hips" } . "\n";
  print "Height" . $playmate->{ "Height" } . "\n";
  print "Weight" . $playmate->{ "Weight" } . "\n";