#!/usr/bin/perl -w -i.orig
my ($login, $alias) = @ARGV;
@ARGV = ('/etc/aliases');
my $qlogin = quotemeta $login;
my $qalias = quotemeta $alias;
if (not $alias) {
	while (<>) {
		s/^$qlogin:.*?\\$qlogin$//o;
		print;
	}
} else {
	while (<>) {
		s/^\s*?$qlogin:.*?\\$qlogin\s*?$/$login: $alias, \\$login/o and $done = 1;
		print;
		print "\n$login: $alias, \\$login" if eof and not $done;
	}
}
#system '/usr/bin/newaliases > /dev/null 2>&1';
exit(0);
