Select Code to Download

use strict;
my $id = 24601;
...
      # do something subtle
   }
}

BEGIN {
my $id = 24601;
...
   print "ID number is ", get_id(), "\n";
   # .. still more code
}