@ARGV == ()

##</code><code>##

#!/usr/bin/perl -w
use strict;

use DBI;

my $dbh = DBI->connect('dbi:connect_sting', 'user', 'pass', {RaiseError => 1});

my $sth = $dbh->prepare('insert into foo (bar, qux) values (?,?)');

$sth->execute( () );

$sth->finish;
$dbh->disconnect;