#!C:/perl/bin/perl

use strict;
use DBI;

my $filename = shift || die "Please provide a filename.\n";

my $dbh = DBI->connect( "dbi:ODBC:DSNNAME", "", "",
    {RaiseError => 1, PrintError => 1, AutoCommit => 1} ) or
die "Unable to connect: " . $DBI::errstr . "\n";

# Open your file
open( INFILE, $filename ) or die "Couldn't open file for reading.$!\n";
while( $line = <INFILE> )
{
     my @cols = split( "\t", $line );
     # build insert string with items in @cols
     my $sql = "INSERT INTO...";
     $dbh->do( $sql ) or die "Couldn't insert record. $!\n";
}
close(INFILE);
$dbh->disconnect;