.
.
.
my @cmd=("/bin/cpio","-ov");
my $h=start(\@cmd,">",$tape,\$in,\$out,\$err);
                $thisline=readline(FILELIST);
                while (defined $thisline) {
                        ($thisfile,$thisfilesize)=split(/\t/,$thisline);
                        $in="$thisfile\n";
                        print("Dumping $in");
                        $h->pump || die putmsg("Dieing - $err");
                        if (length($out)>0) {
                                putmsg($out);
                        }
                        $total+=$thisfilesize;
                        $complete=sprintf("%.2f",($total/$dumpsize)*100);
                        putmsg("$complete%\n");
                        $thisline=readline(FILELIST);
                }
                finish $h;
.
.
.