my $MYMESSAGE = "My string";
my $DATE=`date +%Y-%m-%dT%H:%M:%S%:z`; chomp $DATE;
$LOG_HDR = "<14>1 $DATE localhost scrubdisk $$ scrubdisk - ";

open (LOG, '>>', '/dev/tcp/localhost/601');
print LOG "$LOG_HDR $MYMESSAGE";
close (LOG);