my $oldfilename = File::Spec->catfile($oldname);
my $newfilename = File::Spec->catfile($newname);
if(-f $newfilename){ } else {
	@args = ("mklink", $newfilename, $oldfilename);
	system(@args) == 0; }