How do I test if a file has write permission?

ChuckularOne has asked for the wisdom of the Perl Monks concerning the following question:

The -w test will do:

if (-w FILEHANDLE) {
    print "It's writeable by my effective uid or gid!\n";
}
[download]

This code was credited to chromatic by the author. --Ed.

Originally posted as a Categorized Question.