deleting a user name from a file

------=_Part_3292_26925685.1210336503266
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

I'm writing this script to remove users from a file, the sudoers file, to
be
more specific.

Here is what I have so far, not sure where to go from here.

*#!/usr/bin/perl -w

# this script removes a user from sudoers file

my $sites = $ARGV[0];
my $user = $ARGV[1];

for my $site ($#ARGV[1]){
  open FILE, "$_/local/etc/sudoers" or die "cannot open sudoers for
$sites:
$!";

print "Enter username you wish to remove from $sites sudoers.\n";

  while (<FILE>) {s/$_//}
  close FILE;
}*


-- 
"It's not what people call you, it's what you answer to."

------=_Part_3292_26925685.1210336503266--