It's feasible, but it's a lot more work than this:

sub getLibVersion {
    my $dir = shift;

    my $lib = "$dir/lib";
    opendir(DIR, $lib) || die "Can't opendir($lib): $!";
    my @files = grep(/lib(syb)?ct\./, readdir(DIR));
    closedir(DIR);
    my $file;
    foreach (@files) {
    $file = "$lib/$_";
    last if -e $file;
    }

    open(IN, $file) || die "Can't open $file: $!";
    binmode(IN);
    my $version;
    while(<IN>) {
      if(/Sybase Client-Library\/([^\/]+)\//) {
    $version = $1;
    last;
      }
    }
    close(IN);
    if(!$version) {
      print "Unknown Client Library version - assuming FreeTDS.\n";
    } else {
      print "Sybase OpenClient $version found.\n";
    }

    return $version;
}
[download]