#!/usr/bin/perl
if (open(LOGFILE, ">>message.log")) {
         print LOGFILE ("This is message number 3.\n");
         print LOGFILE ("This is message number 4.\n");
         close(LOGFILE);
     }