Select Code to Download

#!/usr/bin/perl -w
use strict;
...
sub qux {}
open(FOO,$0) or die $!;
opendir(DIR, '.') or die $!;

#!/usr/bin/perl -w
use strict;
...

sub blah {}
our($blah); # second use of *blah