#! /usr/bin/perl $bci = "/etc/postfix/body_checks.ip-addresses"; open(BODY,"<$bci") ; while() { chomp; s/#.*//; next if /(^$)/; tr/A-Z/a-z/; $B{$_}++; } ; close(BODY); open(BODY,">>$bci"); foreach $ip (@ARGV) { $ip =~ tr/A-Z/a-z/; print BODY "$ip\n" unless $B{$ip}; $B{$domain}++; }; close(BODY);