local( $SIG{__WARN__} )= sub { warn "# ",@_ };