#!/opt/perl/perl-5.18/bin/perl -w
use strict;
use DBIx::RunSQL;

my $options= DBIx::RunSQL->parse_command_line( 'sql_admin.pl' );
$options->{ user } ||= $ENV{ IQ_USER } || 'scott';
$options->{ password } ||= $ENV{ IQ_PASSWORD } || 'tiger';

if( ! $options->{ sql }) {
    $options->{ sql }= shift @ARGV;
};

no warnings 'newline';
if( ! -f $options->{ sql }) {
    $options->{ sql }= \"$options->{sql}"; # in-memory file
};

$options->{ dsn }||= $ENV{IQ_DSN} || 'dbi:SQLAnywhere:eng=q123;links=tcpip';

DBIx::RunSQL->create( %$options );