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

use strict;
my $folder = '/full/path/to/folder';

opendir(DIR, $folder) || die "Cant read $folder. Reason: $!";
while (defined($file = readdir(DIR))) {
next if $file =~ /\./; #skip normal files, as we only want to do folders...
if (chdir($folder)) {
system("tar -cvvf $file ../$file.tar");
print "Compressed $filde into $folder/$file.tar \n";
}
}
closedir(DIR);