use strict;
use warnings;
my $pid = open(PH, "{ dd if=$srcdrive | gzip -v9 >/dev/hdb1/image.zip; } 2>&1 |") or die $!;
while (<PH>) {
  print "output = $_";
}