print "Remove '$origin'? ([Y]es, [N], A(ll), ne[V]er; default: N) ";
my $answer = <>;
print "answer: |$answer|\n" if (DEBUG);
chomp($answer);
$answer = lc($answer);
if ($answer eq ('y' or 'yes')) {
	unlink $origin;
}

##</code><code>##

#!/usr/bin/perl -w
use strict;
while (<>) { print; }