Select Code to Download

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

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