#!/usr/bin/perl
#
use strict;
#
#
my $workdir = "$ENV{HOME}/txt";
open (BADIPS), "< $workdir/bad_ips" or die "Couldn't open file: $!";
print "Can you hear me now?\n";
while (my $line = <BADIPS>) {
      chomp $line;
      print "add ns simpleacl bp-search-spammer DENY -srcIP $line -TTL 43200";
      print "Can you hear me now?\n";
}
close   BADIPS;

##</code><code>##

[bluethundr@lcent5-1:~/perl] $:./bad_ips.pl 
Can you hear me now?

##</code><code>##

[bluethundr@lcent5-1:~/txt] $:ls -l bad_ips
-rw-r--r-- 1 bluethundr bluethundr 822 Jun  5 04:24 bad_ips