You need to include the directory name with the file name, e.g.

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

Updated: Oh, $dir = ".". In the words of Emily Litella, "Never mind!"