perl -e 'while(<*.tar>){`tar -xvf $_`;}'