Data Type Perl

open FILEHANDLE, ">file.dat" or die "Couldn't open file.";
$ioref = *FILEHANDLE{IO};
print $ioref "Hello";
close $ioref;