diff options
-rwxr-xr-x | bin/teeboth | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/bin/teeboth b/bin/teeboth index 6054118..ca4454a 100755 --- 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; |