my $list;
my @changes = param('tellmessage');

######################

if (@changes eq " ") {
  exit
}

######################

open(FILE, ">eetnlinks.txt") || die "Can't open file!";
  flock(FILE, 2) || die "Can't lock file!";
  #truncate(FILE,0);
    foreach $list (@changes) {
      chomp ($list);
      print FILE "$list\n";    
    }    
close(FILE);

##</code><code>##

if (@changes > 1) {
  exit;
}