How to return reference to a File Handle from Subroutine

>>>>>>>>>>>>>>> Code >>>>>>>>>>>
my $FH = returnFileHandle();

print $FH "Hello, World";

sub returnFileHandle {

my $fileName = "file.txt";

open (FILEHANDLE, ">$fileName") or die $!;

return \*FILEHANDLE;

}

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
The subroutine returnFileHandle() returns file handle (in overwrite mode) of file "file.txt".