Select Code to Download

 #!/usr/bin/perl
foo();
...
    sub bar { print ++$x }
    print ++$x;
}

foo();
bar();
...
        }
    }
}