my $out = `dat 2>&1`;