#!/usr/bin/perl

open(SF, ">>crappa");
print SF "$ENV{REMOTE_ADDR}\n";
close(SF);