#!/bin/perl
#create_hash.pl > hash.txt

$start ="../bilder/";

opendir DH, "$start";
foreach $file (readdir DH) {
    print '#' if ($file =~ /Neldel/);
    print '$dirs{"' . $file . '"} = "' . $start . $file . '";' . "\n" unless ($file=~/\./);
}
