#!/usr/bin/perl
use strict;
use POSIX;
use Data::Dumper;



my $dir_incoming="/srv/imgcache/img9.gram.pl/_ROOT_/";


if (opendir(my $dir, $dir_incoming)) {
    my @pliki = grep { /^GAL[0-9].*$/i } readdir($dir);
    foreach my $plik (@pliki) {
	my $fn = $plik;
	$fn =~ s/^(GAL[0-9]*)IMG.*$/\1/i;

	printf(" - ".$plik . " -> " . $fn . "\n");
	mkdir $fn;
	rename $dir_incoming."/".$plik, $fn."/".$plik;
    }
}