Select Code to Download

# object interface
sub new {
...
    bless $self, $class;
    return $self;
}

my $f = List->new;
$f->look_in('c:/');
...
foreach ($f->list) {  ##problem??
    print "${$f->{file}}\n";
}