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