#!/usr/bin/perl
opendir DIR, ".";
@a = readdir(DIR);
print @a;
@b = grep(/img\d\d\d\.gif/,@a);
print @b;
foreach $b (@b) {
    $c = $b;
    $c =~ s/\.gif/\.GIF/;
    symlink($b,$c);
}
