open DFILE, '<', $dfile or die "can not open '$dfile' because: $!";
open SFILE, '<', $sfile or die "can not open '$sfile' because: $!";
open TFILE, '>', $tfile or die "can not open '$tfile' because: $!";