Update teeboth to report reasonable error

diff --git a/bin/teeboth b/bin/teeboth
index 6054118603d65eddfb9b40e4f553fa39d661ca3b..ca4454af8eecf2f7c6d8b6f32d2ec5cfc3dc850b 100755 (executable)
--- a/bin/teeboth
+++ b/bin/teeboth
@@ -11,7 +11,7 @@ use IO::Select;
 my $out = shift @ARGV;
 die unless @ARGV;
 
-open my $fout, ">", $out or die;
+open my $fout, ">", $out or die "Can't open: $out: $!";
 
 my $select = IO::Select->new();
 my $alive = 1;