open(LS, qq{/usr/local/openssh/bin/ssh -p 22 foo\@localhost "if [ -d /home/foo/bar/20110826 ] ; then echo 1 ; else echo 0 ; fi" |});
my $baz = <LS>;