If the box you are joining is running a classical unix, it is possible to execute easily multiline commands, even conditional or loop.

$prog=<<'EOF'
for i in `ls`
  do 
   echo $i
done
EOF
;

print $ssh->system( {stdin_data=>$prog},"bash");
[download]

Easy, isn't it ?