system "mt -f $tape setblk $blocksizebytes"; $? and die $?;
system "dd if=$tape bs=${blocksize}b count=10 ".
"| tar -b$blocksize -vvxf - TAPEID";
system "mt -f $tape setblk $blocksizebytes"; $? and die $?;
system "dd if=$tape bs=${blocksize}b count=10 ".
"| tar -b$blocksize -vvxf - TAPEID";