scripts

root / pkg

1
2
3
4
5
6
7
8
9
10
11
#! /usr/bin/env perl

use v5.12;
use warnings;

while (<>) {
    if (my ($pkg) = m/package ([\w:]+);/) {
        say $pkg;
        close ARGV;
    }
}