my $filename = "$directory$file";
my @array=stat($filename);