Select Code to Download

$ cat foo.pl 
#!/usr/bin/env perl
...
        carp
# use Carp                qw< carp >;
$

sub ReportExportUse {
    my( $fh, @mods ) = @_;
...
        local $_;
        local $. = 0;      # <------------- HACK
        while( <$fh> ) {

foo.pl:
     3: carp('boo');    # This is line 3
        carp
# use Carp                qw< carp >;