Select Code to Download

use warnings;
use strict;
...
    Term::ReadLine->new("")->readline("");
}
else { warn "Noninteractive, continuing...\n" }