use Sys::Syslog qw(syslog);
use POSIX qw(strftime);
use Socket qw(:crlf);
use IO::Handle;
use Sip::Constants qw(SIP_DATETIME);
use Sip::Checksum qw(checksum);
if ($file) {
$file->autoflush(1);
print $file "$msg\r";
} else {
print "$msg\r";
STDOUT->autoflush(1);
print $msg, "\r";
syslog("LOG_INFO", "OUTPUT MSG: '$msg'");
}
-