our $filename;

BEGIN {
  $filename = '/tmp/mylogfile';
}
use Log::StdLog { file => $filename };
print {*STDLOG} warn => 'Works fine!!!';