how about:

my ($read,$generate,$help); # option switches
GetOptions (
    "help" => \$help,        
    "read"  => \$read,
    "generate" => \$generate,
);

die "$Usage\n" unless $read || $generate;
[download]

Paul