Language Basics Perl

if (!$^W) {
    print "You should use the -w switch.";
}
open FILEHANDLE, "print FILEHANDLE "Hello!";
close FILEHANDLE;