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();
[download]