open(SAVEPDB,">$directory/${file_name}_${md5file}")
             or die $!;