GetOptions(
    'add=s'  =>\my $add,
    'edit=s' =>\my $edit,
    'list=s' =>\my $list,
    'view=s' =>\my $view,
    'man'    => sub {pod2usage({-verbose => 2, -input => \*DATA}); exit},
    'help|?' => sub {pod2usage({-verbose => 1, -input => \*DATA}); exit},
);

if (1 == grep { defined } ( $add, $edit, $list, $view )) {
    print "Good!";
}
else {
    print "Bad!\n";
}