#! /usr/bin/perl
use strict;
use warnings;

use Getopt::Std;
use Data::Dumper;

getopts('fb?', \my %opts );

print Data::Dumper->new( [ \%opts ], [ 'opts' ])->Sortkeys(1)->Dump();