#!/usr/bin/perl
$pfad ="ip.list";

open(DATEI, $pfad);
@inhalt=<DATEI>;
close(DATEI);

foreach $dip_tab (@inhalt) {
    system "nmap -v -A $dip_tab > C:/log/$dip_tab.log";
    print "scann fertig auf: $dip_tab\n";
}