my $filename = join('', split('\.', $ENV{REMOTE_ADDR}) );
...
# then, somewhere write to / read from the file