Use getcwd() because it works under MSYS but `pwd` doesn't.

# not contain symbolic links and that the parent of / is never referenced.

# 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 = ();