Select Code to Download

{
  my $global = ...;
...
    $global->whatever()
  }
}

use strict;
$^W++;
...
our $a = A->new();

END { $a = undef; }