# Datei oeffnen
open(DATEN,'<c:\perl\systems.txt') or die "Konnte die Datei nicht öffnen";
# Inhalte abgreifen und splitten
while (!undef) 
{
 my $zeile = DATEN->getline;
 my ($USER, $FQDN, $OS, $PW) = split(/;/,$zeile);
 printf("$FQDN");
 printf("$OS");
 printf("$USER");
 printf("$PW");
}
printf("schleife tot");