diff --git a/events/fixme.pl b/events/fixme.pl
new file mode 100755
index 0000000..cfe7a29
--- /dev/null
+++ b/events/fixme.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+open (IN , "ls -1|");
+while (<IN>) {
+chomp ($_);
+#print $_;
+$a = $_;
+if ($_ =~ /\%3A/) {
+$_ =~ s/\%3A/\:/;
+`ln -s $a $_`; 
+print "ln -s $a $_\n";
+}
+#print "\n";
+}
+close (IN);