为什么我在准备时会出错？

#!/usr/bin/perl

use strict;

use Sybase::DBlib;

use Sys::Hostname;
use Getopt::Std;

## additionals
use lib "/opt/chsdjg/perllib";
use ADDITIONALS;

  my ($dsn, $database, $dbserver, $dbname, $user, $passwd, $rmdb_config ) = ('','','','','','','');

  my $dbhandle;
  $rmdb_config  = "$ENV{ENV_DIR}";
  $dsn          = "dbi:Sybase";
  $database     = join (' ~ ',$dsn, $dbserver, $dbname, $user, $passwd, $rmdb_config);
  $dbhandle     = connect_me($database);

  my $ctl= "select * from table_name";
 
  $dbhandle->dbcmd($ctl);
  my $ret = $dbhandle->dbsqlexec;
  my $res = $dbhandle->dbresults;

  
 my @dat;
   while($dbhandle->dbresults != NO_MORE_RESULTS) {
        while(@dat = $dbhandle->dbnextrow) {
  print "@dat\n";
}
}