File Perl

open (FILEHANDLE, ">hello.txt") or die ("Cannot open hello.txt");
select FILEHANDLE;
print "Hello!";
close (FILEHANDLE);