#!perl
$ENV{CLASSPATH}="/usr/work/ticket/ETicketClient.jar:.";
print "Without shell metachars we get:\n",
      grep(/CLASSPATH/, qx[/usr/bin/env]), "\n";
print "With shell metachars we get:\n", 
      grep(/CLASSPATH/, qx[/bin/false || /usr/bin/env]), "\n";


##</code><code>##

#!/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; 


##</code><code>##

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/