Remove unconditional read prefix ("<") in order to enable magic open,
e.g. Flowd-new("bzcat flowd.bz2|");
hmo17may20

--- Flowd-perl/lib/Flowd.pm	2008-07-25 02:04:17.000000000 +0200
+++ Flowd-perl/lib/Flowd.pm	2020-05-17 11:58:30.657837000 +0200
@@ -140,7 +140,7 @@
 	my $r;
 
 	$self->{filename} = $filename;
-	open($fhandle, "<$filename") or die "open($filename): $!";
+	open($fhandle, $filename) or die "open($filename): $!";
 	$self->{handle} = $fhandle;
 }