se WIN32::ODBC;

my @Anlagen = ( 'bvs100', 'bvs102', 'bvs103', 'bvs105', 'bvs106');


foreach (@Anlagen) {

        my $DSN = $_;
        my $DSN2 = "statistik";
        
        my ($sekunde, $minute, $stunde, $day, $month, $year) = (localtime(time))[0..5];
        $month++;
        $year += 1900;
        
        $day = "0".$day if $day < 10;
        $month = "0".$month if $month <10;
        $sekunde = "0".$sekunde if $sekunde <10;
        $minute = "0".$minute if $minute <10;
        $stunde = "0".$stunde if $stunde <10;
        
        if (!($db = new Win32::ODBC($DSN))){
            print "Error connecting to $DSN\n";
            print "Error: " . Win32::ODBC::Error() . "\n";
            exit;
        }
        
        if (!($db2 = new Win32::ODBC($DSN2))){
            print "Error connecting to $DSN2\n";
            print "Error: " . Win32::ODBC::Error() . "\n";
            exit;
        }
        
        if ($db->Sql("SELECT ItemStatusID, Date from Item_Statistics")){
            print "SQL failed. \n";
            print "Error: " . $db->Error() . "\n";
            exit;
        }
        
        while ($db->FetchRow()){
            undef %Data;
            %Data = $db->DataHash();
            if ($db2->Sql("INSERT INTO statistik (anlage, status, datum) VALUES ('".$_."', ".$Data{"ItemStatusID"}.", '".$Data{"Date"}."')")) {
               
 print "SQL failed. \n";
               
 print "Error: " . $db2->Error() . "\n";
            }
        }
        
        $db->Close();
        $db2->Close();
}
<>