1   $pref = $ENV{'REMOTE_ADDR'};
2   open(PREFS,">$basedir/$orgdir/prefs.txt");
3   print PREFS "$pref";
4   close(PREFS);