use strict;
use warnings;
use autodie; # not Autodie (update)
use IO::Dir;
my $dh = IO::Dir::pl->new('.');
while (my $file_name = $dh->read_pl()){
    print STDOUT "$file_name\n";
}

BEGIN {
    package IO::Dir::pl;
    use vars '@ISA';
    @ISA = ('IO::Dir');

    sub read_pl {
        my $self = shift;
        warn "Ok We got here.\n";
        return undef;
    }
}