Select Code to Download

use strict;
use warnings;
...
for my $option (grep {$options{$_}} keys %options) {
    print "Option '$option' was used\n";
}

Option 'two' was used