read all data because length is picture size, not data stream

diff --git a/ZPL2pbm.pl b/ZPL2pbm.pl
index e439ae4..8a7c2b7 100755 (executable)
--- a/ZPL2pbm.pl
+++ b/ZPL2pbm.pl
@@ -31,8 +31,7 @@ while( $line ) {
 
                warn "# ~DG$1 => [$name] t=$t w=$w\n";
 
-               my $data;
-               read $in, $data, $t;
+               my $data = <$in>;
 
                my $out;
                # ZPL decompress