Update from 0.9.7-stable.

# Apart from this, this script should be able to handle even the most

# pathological cases.

use Cwd;

my $from = shift;

my @files = @ARGV;

my @from_path = split(/[\\\/]/, $from);

my $pwd = `pwd`;

chop($pwd);

my $pwd = getcwd();

chomp($pwd);

my @pwd_path = split(/[\\\/]/, $pwd);

my @to_path = ();