programming-examples/perl/File/Print message in case of file open failure.pl

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

close (FILEHANDLE);