#!/usr/bin/perl

for (@ARGV) {
    $old = $_;
    s/ /%20/g;
    $new = $_;

    print "$old => $new\n";
    system("ln -s '$old' '$new'");
}