BEGIN { $SIG{'__WARN__'} = sub { syswrite STDERR, $_[0] } }

warn "Warnings go to STDERR\n";