my ($host,$port,$database,$user,$pass) = ("SERVER","1433","DataBase",'user',"Passw0rd");
    my $dbh = DBI -> connect("DBI:Sybase:server=$host:$port;database=$database",$user,$pass);            
    my $sth = $dbh -> prepare("EXEC dbo.p_tss_create_task");
        
    $sth->execute;	

    $dbh->disconnect();

    my $dbh = DBI -> connect("DBI:Sybase:server=$host:$port;database=$database",$user,$pass);            	

    my $sql = 'EXEC dbo.create_task ' . $client_id . ', ' . "'".$call_name."'" . ', ' . "'".$call_descr."'" . ', null, null, ' . $user_id . ', ' . "'".$priority_class."'" . ', ' . $product_id . ', ' . $bts_id . ', $task_id';    
    my $sth = $dbh -> prepare($sql);
    
    $sth->execute or die "SQL Error: $DBI::errstr\n";	
    $dbh->disconnect();

my $sth = $dbh->prepare("exec my_proc \@p1 = ?, \@p2 = ?, \@p3 = ? OUTPUT ");
$sth->execute('one', 'two', 'three');
my (@data) = $sth->syb_output_params();