$ cat test2.pl
#!/usr/bin/perl

my $god;

sub test {
     my ($param) = @_;
     print $param;
     return
}
__END__

$ cat test.pl | perl -ne 'print "$. $_" if /^sub/ .. /[}]/'
5 sub test {
6      my ($param) = @_;
7      print $param;
8      return
9 }