#!/usr/bin/perl

my @d = split(/\n/, `/usr/bin/find * -type d -maxdepth 1`);

for(my $a = 0; $a < scalar(@d); $a++) {
    system("mkisofs -o $d[$a].iso $d[$a]");
}