Select Code to Download

# warning, pseudocode
foo(4); # prints "4"
...
  bar = shift() unless defined bar;
  print bar;
}

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

sub less_slow {
  my $object;
...
    $dbh -> do("update storage set object='$object'");
  }
}