#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
use strict;
use CGI ':standard';

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

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);