Select Code to Download

      #!/usr/perl -w
      use DBI;
...
      my $username= 'R1'; #same for every customer
      my $password= 'box747'; #same for every customer
      my $dbh = DBI->connect("dbi:ODBC:DRIVER=$database;SERVER=$hostna
+me;port=3306",$username$password)";

      my $sql = "SELECT * FROM ORG1.MACHINE"; 
      ## SQL works in MySQL studio where ORG1:db and MACHINE:table
...
$sth->finish();
$dbh->disconnect();