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

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