#!perl

use strict;
use warnings;

push (@INC,'F:/dean/scr/pl/pms/dirlist');
require List;

my $f = List->new;
$f->stream_to(\*STDOUT);
$f->look_in('c:/');

foreach ($f->list) {  ##problem??
	print "$_\n";
}