$SQL = "INSERT INTO iCDRSbw (rec_num,src_file,src_host,init_status,cdr_day,last_modified,city,state,cname,vname,            
            npa,nxx,ocn,lata,lata_name,pdd,zone_id,cdrs_seq,file_seq,gc_id
) VALUES (?,?,?,?,?,?,?,?,?,?,
          ?,?,?,?,?,?,?,?,?,?)";

my $database_username = "USER";
my $database_password = "PASS";
my $msdsn = q/dbi:ODBC:DRIVER={SQL Server};Server=10.0.0.5;attr=value/;
my $dbh = DBI->connect( $msdsn, $database_username, $database_password )
  or die "ERROR";
$dbh->do("use db_name") or log_die("$DBI::errstr");

my $sth = $dbh->prepare( $SQL );
$sth->execute( 1, 'icdr.5_5_5B.0.1.200712170000.052964.0', '127.0.0.1',
               'Unprocessed', '2007-12-17 00:00:47',
               '2007-12-17 00:00:47','NA','NA',' ',' ',
               999,999,' ',1,1,1,1,1,1,'AAAAC0dlvAgiIAABC7Przw.7591990' )
    or print "DBI error: " . $sth->errstr;