Пишу в Perl:
system("/usr/bin/tar --create --file=archive.tar *.");

В итоге создается archive.tar, но весь заполненный нулями.
Как использовать tar? Что написать, чтобы все файлы каталога
упаковывались в tar и удалялись?