$dir = "test";

mkdir $dir or die "Unable to create dir : $!" if not ( -d "$dir");
chdir $dir;

foreach ( 'aaa' .. 'zzz' ) {
    open F, "> $_";
    my $data = chr(97 + int rand 10);
    print F $data;
    close F;
}