BEGIN { $ENV{REMOTE_ADDR} = join".",map int rand 256,0..3 }