#!/usr/bin/perl
     use strict;
     use warnings;
     use DBI;
    
    
     my $mydbh = DBI->connect( "dbi:SQLite:/root/loc.db","","",{AutoCommit => 0} ) or die "Error $DBI::errstr \n"; 
     my $dbh   = DBI->connect( "dbi:Sybase:server=192.168.11.16;database=customer",
                        "xxx",
                        "xxx",
                        {AutoCommit =>1})
                        or die $DBI::errstr;
      
    insert_it();
    $mydbh->disconnect;
    $dbh->disconnect;
    
    exit;
    
    ##########################
    sub insert_it() {
      my $r = get_data();
      for (keys %$f) {
        my $mo 		= $r->{$_}->{money};
        my $status= $r->{$_}->{status}; 
    		$dbh->do(qq{insert into test_c(custid,money,status) values ($_,'$mo','$status')}) or die $DBI::errstr;
      }
    }
    
    sub get_data {
      my %data;
      my $sth = $mydbh->prepare(qq{select custid,money,status from temp_test order by custid});
      my ($cid,$mon,$sta);
      $sth->execute() or die $DBI::errstr;
      $sth->bind_columns(undef, \$cid, \$mon, \$sta);
      while ( $sth->fetch() ) {
        $data{$cid} = {money => $bal, status => $sta};
      }
      return \%data;  
    }