#!/usr/bin/perl

use strict;
use warnings;

my $pfad ="ip.list";

open(DATEI, "<", $pfad) or die $!;
while(my $dip_tab = <DATEI>){
    chomp $dip_tab;
    system "nmap -v -A $dip_tab > C:/log/$dip_tab.log";
    print "scann fertig auf: $dip_tab\n";
}
close DATEI;