Perl - Nmap Automation - Printable Version

Code:
#!/usr/bin/perl
system("clear");
print "----------------NMAP AUTOMATION --written by  AQUIRED ANONYMITY---------------\n\n";
print "\nENTER THE NAME OF THE SOURCE FILE ";
print "\n--->";
chomp($file=<>);
open(CHECK,"$file") or die("file does not exist: $!");
close(CHECK);
print "\n\nSELECT THE TYPE OF SCAN ";
print "\n\nenter 1 for ping scan ";
print "\nenter 2 for stealth scan ";
print "\nenter 3 for intense scan \n";
print "---> ";
chomp($opt=<>);
system("sleep 1");
print "\n\n";
if($opt==1)
{
print "\n\nPING SCAN\n\n";
open(FILE,"$file");
while(<FILE>){
($IP)=split("\n");
system("nmap -q -sn $IP");
print "\n$IP scanned\n\n ";

}
close(FILE);
}
elsif($opt==2)
{
print "\n\nSTEALTH SCAN\n\n ";
open(FILE,"$file");
while(<FILE>){
($IP)=split("\n");
system("nmap -q -sS -Pn $IP");
print "\n$IP scanned \n\n";
}
close(FILE);
}
elsif($opt==3)
{
print "\n\nINTENSE SCAN\n\n ";
open(FILE,"$file");
while(<FILE>){
($IP)=split("\n");
system("nmap -q -T4 -A -v $IP");
print "\n$IP scanned\n\n ";
}
close(FILE);
}
else
{
print "\n\nwrong option";
}
print "\n\nSCAN COMPLETE\n\n";