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