open STDOUT,">$log" || die "Cannot open log forwriting.!";
open STDERR, ">&STDOUT" or die "Can't dup stdout";

@ret = `sftp $user\@$server <<EOF
      cd $srcdir
      $cmd $srcfile $tgtfile
      bye
      EOF`;

while (<STDOUT>) {
    print "inside STDOUT and row is $_\n";
    print "err is $_ ...retrying\n" if /No such file/;
}