Select Code to Download

use strict;

...
        print $var;
}
print "\n", $var, "\n";

my $var1=0;

...
        $var1 = $var2;
}
print "\n", $var1, "\n";

use strict;
my $var;
...
    print $var;
}
print "\n", $var, "\n";