Select Code to Download

use vars qw($var1 $var2 $var3);
{
...
    $var2 = 'Two';
    $var3 = 'Three';
}

use vars qw($var1 $var2 $var3);
initialize();
...
    $var2 = 'Two';
    $var3 = 'Three';
}