# object interface
sub new {
    my ($class, $stream, $path, ) = @_;
    my $file = undef;
    $path = cwd unless @_ > 2;
    my $self = {
            file    => \$file,
            path    => File::Spec->canonpath($path),
            };
    bless $self, $class;
    return $self;
}

##</code><code>##

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

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