!/usr/local/bin/perl -w
#

use DBIx::AnyDBD;
use strict;
my $db=DBIx::AnyDBD->connect("dbi:Sybase:$database","dba","sql");
my $database = "FirstAm.bdb";
my $data_source = "DBI:AnyDBD:$database";
my $username = "UID=dba;PWD=sql;ENG="Foc_SageNet";
my $dbh = DBI->connect( $data_source, $username, '' );
or die "Can't connect to $data_source: $dbh->errstr\n";
$dbh->disconnect;
exit(0);
[download]

Errr.... just posting the code without any results or error messages won't really be any use - we can't guess what is broken.

However, I'm pretty sure that you can re-download and re-install an eval version of SQL Anywhere, and then open the db file that way.

Michael