#!/usr/bin/perl

use strict;
use warnings;
use Pod::Search;

my $regex = shift;
die "Usage: $0 REGEX\n" if not $regex;

my $ps = Pod::Search->new();
$ps->search($regex);


#use Data::Dumper;
#print Dumper \@podfiles;