#!/usr/bin/perl -w

use strict;
open (FILE, "users.txt") or die "File not found\n";
my $name = '';
my $yn = '';

print "Enter your name--> ";
chomp ($name = <STDIN>);

while (<FILE>) {

   if (/^\$name$/i) {
      print "Your name was already found\n";
      last; }
   else {
      print "Name not found. Would you like to add it? (y/n)--> ";
      chomp ($yn = <STDIN>);
      if ($yn eq 'y') {
         close FILE;
         open (OUTPUT, ">>users.txt");
         print OUTPUT "$name\n";
         close OUTPUT; ;
      }
      else {
         print "FINE!\n"; ;
      }
last;    } 
}
print "end.\n";