Nice module, but I'd make a change.

    sub new{
        my $self ={};
        $self->{FILENAME} = $_[1];

        # snip

        bless($self);
        return($self);
    }
[download]

Please don't use the one-argument form of bless. You'll be dissappointed if you ever want to subclass this because this defaults to the current package and won't allow you to inherit. Here's how I would change it:

    sub new{
        my ($class,$filename) = @_;
        my $self;
        $self->{FILENAME} = $filename;

        # snip

        bless $self, $class;
        return $self;
    }
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.