my $filename = '/tmp/mylogfile';
require Log::StdLog;
Log::StdLog->import({ file => $filename });
print {*STDLOG} warn => 'Works fine!!!';