#!/usr/bin/perl -w

use strict;
use DBI;

@ARGV == 2
	or die "syntax: $0 dsn sql\n";

my ($dsn, $user, $pass, $attr) = split / /, shift, 4;
my $sql = shift;

my $dbh = DBI->connect($dsn, $user, $pass, $attr && eval $attr)
	or die "cannot connect to $dsn: ".DBI->errstr."\n";

my $sth = $dbh->prepare($sql)
	or die "cannot prepare: ".$dbh->errstr."\n";

$sth->execute
	or die "cannot execute: ".$dbh->errstr."\n";

$sth->finish;

$dbh->disconnect;