test module. Rough example: running CGIIndex->search would return a list of files contained in $date.txt

CDRIndex.pm

package CDRIndex;

use strict;
use warnings;

sub new {
    my ($class, %args) = @_;
    bless \%args, $class;
}

sub ani {
    my $self     = shift;
    $self->{ani} = shift if @_;
    $self->{ani};
}

sub date {
    my $self      = shift;
    $self->{date} = shift if @_;
    $self->{date};
}

sub search {
    my $self    = shift;
    my $command = '/bin/grep';
    my $ani     = $self->ani();
    my $date    = $self->date();

    qx/$command $ani $date.txt/;
}

1;