GetOptions(
    '--one'   => \$opts{one},
    '--two'   => \$opts{two},
    '--three' => \$opts{tree},
);

die "Only one of options @{[ sort keys %opts ]} are allowed\n"
   if ( grep defined, values(%opts) ) > 1;