How to Create File in PERL

my $message = "
Wel come to file Handleding
"
my $fileName = '/tmp/testUserData.html';
open(my $sqf, '>', $fileName) or die "Could not open file '$fileName' $!";
print $sqf $message;
close $sqf;