use Win32::ODBC;
my $DSN = 'Monday';
my $srv_tbl = 'Servers';
my $Master = 'Master';
my $Applications = 'Applications';
                   

my $EDS_DB = new Win32::ODBC($DSN) or die "Error => $!\n";
die "Sql Failed" . $EDS_DB->Error( ) . "\n" if ($EDS_DB->Sql("SELECT * FROM Master"));


my $srv_name;
my $app;
while ($EDS_DB->FetchRow())
{
		my %data = $EDS_DB->DataHash();
		$srv_name =  $data{"Server_Name"};
		$app = $data{"Application"};
		print qq(Server Name is $srv_name, $app\n);	
		$EDS_DB->Sql("INSERT INTO Servers (Server_Name) VALUES ('$srv_name')");
}