sub too_slow {
  my $object = ReallyHuge::SlowObject -> new(%args);
  # do stuff with $object
  return "stuff";
}