sub readDirectory
{
 my $self = shift;
 my %rlist;
 $rlist{"file1"} = '1';
 $rlist{"file1"} = '2';
 return \%rlist;
}