if ($removeall == 1) {
	unlink $origin;
} elsif ($removeall == 0) {
	print "Remove '$origin'? ([Y]es, [N]o, [A]ll, ne[V]er; default: N) ";
	chomp(my $answer = lc(<STDIN>));

	print "answer: |$answer|\n" if (DEBUG);

	if (($answer eq 'y') or ($answer eq 'yes')) {
		unlink $origin;
	}

	if (($answer eq 'a') or ($answer eq 'all')) {
		unlink $origin;
		$removeall = 1;
	}

	if ($answer eq ('v' or 'never')) {
		$removeall = -1;
	}
}