5746        $system = "$CPAN::Config->{tar} xvf $file";
5747        $CPAN::Frontend->myprint(qq{Using Tar:$system:\n});
5748        if (system($system)==0) {
5749            $CPAN::Frontend->myprint(qq{Untarred $file successfully\n});
5750        } else {
5751            $CPAN::Frontend->mydie(qq{Couldn\'t untar $file\n});
5752        }