#!/usr/bin/perl
open (IN , "ls -1|");
while (<IN>) {
chomp ($_);
print $_;
$a = $_;
$_ =~ s/\%20/\\ /g;
if ($_ =~ /\%3A/) {
$_ =~ s/\%3A/\:/;
}
`ln -s $a $_`; 
print "ln -s $a $_\n";
#print "\n";
}
close (IN);