time perl -E'say "This is my $_ test message!" for 1 .. 1000000' > junk.txt

##</code><code>##

local $facility = $facility;    # may need to change temporarily.

##</code><code>##

local $facility = $Sys::Syslog::facility;    # may need to change temporarily.