print() on closed filehandle FH at 

##</code><code>##

use warnings;
use strict;

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