use DBI;
use DBD::ODBC;

my ( $data_source, $database, $user_id, $password ) = qw( server datab
+ase user password );

my $conn_string = "driver={SQL Server};Server=$data_source;Database=$d
+atabase;UID=$user_id;PWD=$password";

my $dbh = DBI->connect( "DBI:ODBC:$conn_string" ) or die $DBI::errstr;

my $sql = "SELECT * FROM tbl_Foo (NOLOCK)";

my $sth = $dbh->prepare( $sql );
$sth->execute;

while ( my $result = $sth->fetchrow_hashref ) {

    # Your fields can be accessed through the $result hashref, for exa
+mple:

    print $result->{First_Name};

}

$dbh->disconnect;

##</code><code>##

$ perl a.pl 
Can't locate DBD/ODBC.pm in @INC (@INC contains: /opt/local/lib/perl5/site_perl/5.12.3/darwin-multi-2level /opt/local/lib/perl5/site_perl/5.12.3 /opt/local/lib/perl5/vendor_perl/5.12.3/darwin-multi-2level /opt/local/lib/perl5/vendor_perl/5.12.3 /opt/local/lib/perl5/5.12.3/darwin-multi-2level /opt/local/lib/perl5/5.12.3 /opt/local/lib/perl5/site_perl /opt/local/lib/perl5/vendor_perl .) at a.pl line 2.
BEGIN failed--compilation aborted at a.pl line 2.

##</code><code>##

/System/Library/Perl/Extras/5.10.0/darwin-thread-multi-2level/DBI/Const/GetInfo/ODBC.pm
/System/Library/Perl/Extras/5.10.0/darwin-thread-multi-2level/DBI/W32ODBC.pm
/System/Library/Perl/Extras/5.10.0/darwin-thread-multi-2level/Win32/DBIODBC.pm
/System/Library/Perl/Extras/5.8.9/darwin-thread-multi-2level/DBI/Const/GetInfo/ODBC.pm
/System/Library/Perl/Extras/5.8.9/darwin-thread-multi-2level/DBI/W32ODBC.pm
/System/Library/Perl/Extras/5.8.9/darwin-thread-multi-2level/Win32/DBIODBC.pm
/Users/Julio/.cpan/build/DBI-1.616-7KkONo/blib/lib/DBI/Const/GetInfo/ODBC.pm
/Users/Julio/.cpan/build/DBI-1.616-7KkONo/blib/lib/DBI/W32ODBC.pm
/Users/Julio/.cpan/build/DBI-1.616-7KkONo/blib/lib/Win32/DBIODBC.pm
/Users/Julio/.cpan/build/DBI-1.616-7KkONo/lib/DBI/Const/GetInfo/ODBC.pm
/Users/Julio/.cpan/build/DBI-1.616-7KkONo/lib/DBI/W32ODBC.pm
/Users/Julio/.cpan/build/DBI-1.616-7KkONo/lib/Win32/DBIODBC.pm
/opt/local/lib/perl5/site_perl/5.12.3/darwin-multi-2level/DBI/Const/GetInfo/ODBC.pm
/opt/local/lib/perl5/site_perl/5.12.3/darwin-multi-2level/DBI/W32ODBC.pm
/opt/local/lib/perl5/site_perl/5.12.3/darwin-multi-2level/Win32/DBIODBC.pm