#!/usr/bin/perl

$file = "/home/master/webroot/perlskripts/ip.log";

if (-e $file) {
   open(lg, ">>$file") || die "Can't open $file!\n";
   print lg "User from ".$ENV{'REMOTE_ADDR'}." logged on\n";
   close(lg);
}else{
   $create = `touch $file`;
   $chmod = `chmod u+rw $file`;
   open(lg, ">>$file") || die "Can't open $file!\n";
   print lg "User from ".$ENV{'REMOTE_ADDR'}." logged on\n";
   close(lg);
}