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