Select Code to Download

sub get {
   my ($ua, $url, $cb) = @_;
...
   $cb->($foo, $tx);  # Call the referenced sub.
   ...
}