use warnings;
use strict;

use DBI;

my $dbh = DBI->connect(
        "dbi:Sybase:server",
        "sa",
        $ENV{SYBPW},
        {
                ChopBlanks      => 1,
                RaiseError      => 1,
                PrintError      => 1,
        }
);
$dbh->do(
        "dump database non_existant_db to 'non-existant file'"
);