my($filename1, $directories) = fileparse($file1);
print "directory is --> " . $directories;
 print "filename1 is  --> " . $filename1;