This fine v5.10 feature causes Perl v5.18 and later to complain.
Keep it since it remains the best solution imho and is unlikely to break
anytime soon.
use 5.010;
use strict;
use warnings;
+use experimental 'switch';
use Imager;
use List::Util qw(sum max);
use 5.010;
use strict;
use warnings;
+use experimental 'switch';
use List::Util qw(sum min max);
use Data::Dumper;
use 5.010;
use strict;
use warnings;
+use experimental 'switch';
use Parse::Binary::Nested qw(unpackf);
use 5.010;
use strict;
use warnings;
+use experimental 'switch';
use Carp;
use Exporter qw(import);