open (FH, 'out.txt');
   print FH "start" . $type . "end"; 
 close FH;