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