Select Code to Download

use strict;
my $filename = $ARGV[0];
...
foreach my $sub (sort {$a cmp $b} keys %subs) {
    print "$indents{$sub}$types{$sub} [$sub] at $filename line $subs{$
+sub}\n";
}

sub test0 {
...
sub test1 {
  print "blabla"
}

>perl C:\temp\showsubs.pl delme.pl 7

...
sub [test0] at delme.pl line 2
sub [test1] at delme.pl line 6
>Exit code: 0    Time: 0.213

command.name.4.$(file.patterns.perl)=List Routines
command.4.$(file.patterns.perl)=perl C:\temp\showsubs.pl $(FileNameExt
+) $(SelectionStartLine)