use Data::Dumper;
my $cmd = Generate_Command($arg1,$arg2);
print Dumper([$ssh->cmd($cmd)]);
$cmd = Generate_Another_Command($arg1,$arg2);
print Dumper([$ssh->cmd($cmd)]);


##</code><code>##

#! /bin/sh

set -x
CLASSPATH=/usr/local/classes/classes12.zip
PATH=/usr/local/java/bin:$PATH
LD_LIBRARY_PATH=/usr/local/tonga/lib
export CLASSPATH
export PATH
export LD_LIBRARY_PATH

echo "About to start java at `date`"
/usr/local/tonga/bin/javadb dbVersion $1
javastat=$?
echo "Finished java at `date` with status $javastat"
exit $javastat


##</code><code>##

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