#!/usr/local/bin/perl -w

$name = "$ARGV[0].tar";

`ls *.tar.Z > exclude`;
`tar cvfX $name exclude *`;
`compress $name`;
