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

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