my $fullfilename = "$dir/$file";
  my $fsize = (-s $fullfilename); # get the file size
  my $isdir = (-d $fullfilename); # get the file size