use GetOpt::Long;
    #Adjust bractes and commas to taste
    GetOptions (
                'verbose' => \(my $verbose = ''),   
                'all'     => \(my $all     = ''),
               );