my $is_compressed = $class->gtest($file); if ($is_compressed) { warn "Its compressed, using a pipe.\n"; $system = "$CPAN::Config->{gzip} --decompress --stdout " . "< $file | $CPAN::Config->{tar} xvf -"; } else { warn "Its not compressed, using tar directly.\n"; $system = "$CPAN::Config->{tar} xvf $file"; } if (system($system) != 0) { #### 'e:' is not recognized as an internal or external command, operable program or batch file.