Select Code to Download

#!/usr/bin/perl
use strict;
...
       print "no and take action\n";
    }

$ans = ($TERM->readline($prompt)) ? : 'yes' :<STDIN> ;