Select Code to Download

use strict;                        # 1
{                                  # 2
...
    print $foo;                    # 4
}                                  # 5
print $foo;                        # 6

use strict;                        # 1
my $bar;                           # 2
...
    $bar = \$foo;                  # 6
}                                  # 7
print $$bar;                       # 8