Select Code to Download

  my $a = sub { print "Hello\n" };
  freeze( $a, "frozen.sub.file" );
  $a = undef;
  thaw( $a, "frozen.sub.file" );
  $a->(); # calls $a, printing "Hello\n"