#!/usr/bin/perl -w

use DBI;
use strict;

my $foo=DBI->connect('DBI:Sybase:server=FOO', user, pass)||die "Connection Failed! $DBI::errstr\n";
my $sql="CREATE TABLE dbo.foo\n(bar int NOT NULL)\nCREATE TABLE dbo.footoo\n(bar int NOT NULL)";
my $fooexec=$foo->prepare($sql);
$fooexec->execute()||die "SQL failed: $!\n";
$fooexec->finish();
$foo->disconnect();

exit (0);