#!/usr/bin/perl -w
$dir = shift;
system("tar cf - $dir | gpg -c > $dir.tar.gpg");