I might add that while it's uncommon to see it done here, checking the return value of print can be useful. Consider this:

perl -e 'print BADHANDLE "Hello world.\n" or die $!'
[download]

...output...

Bad file descriptor at -e line 1.
[download]

...which is kinda nice information to know.