$query  = " select A from TAB1 ";

  my($DB) = Sybase::DBlib->dblogin( $User, $Password, $Server);
  $DB->dbuse( database );
  $DB->dbcmd($query);
  $DB->dbsqlexec;
  $DB->dbresults;
  
  while ( %dbdata = $DB->dbnextrow(1) )
  {
	foreach ( sort keys %dbdata )
	{
		my $CurColumn = $_;
		print $CurColumn;
                my $tempname = $dbdata{$CurColumn};
                print "[$tempname]\n";
	}
}