#!/usr/bin/perl -w 
my $cp = "/usr/work/ticket/ETicketClient.jar:."; 
$ENV{PATH}.=":/usr/work/ticket/" 
$test="This is perl ticket"; 
my $result =qx/java -cp \Q$cp\E ETicket.ETicketClient -i TICKET -n  p_name -t "\Q$test\E"/; 
print $result;