Once upon a time, I wrote the following ($l is a Tk::TList, Scrolled)

sub KosherINC {
    my $l = shift;

    @INC = ();

    if( $l->index('end')  ) { # index ain't documented (grr)
        for(0 .. $l->index('end') ) {
            push @INC, $l->entrycget($_ => '-text');
        }
    }
}
[download]

What it does is push onto @INC all the entries in the list. Isn't Tk wonderful? {grin}

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"

I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).

** The third rule of perl club is a statement of fact: pod is sexy.