my $dbh=DBI->connect("dbi:Sybase:$parm2","$parm3", "$parm4" ) or die DBI::errstr;