use strict; use warnings; use Win32::ODBC; # see Programming the Perl DBI page 167 # connect to data source my $db = new Win32::ODBC("DSN=mydsn;") or die Win32::ODBC::Error(); # some data to insert my %addrRow = ( 'name' => 'Billy', 'email' => 'billy@email.com', 'city' => 'NY', 'country' => 'USA' ); my $name = $addrRow{'name'}; my $email = $addrRow{'email'}; my $city = $addrRow{'city'}; my $country = $addrRow{'country'}; # prepare and execute if ( $db->Sql( "INSERT INTO address (name,email,city,country) VALUES (\'$name\',\'$email\',\'$city\',\'$country\') " ) ){ print "SQL Error; ". $db->Error()."\n"; } # exit $db->Close();