perl reading bmp

parsebmp.pl

#!/usr/bin/perl

use strict;
use warnings;
use Data::ParseBinary;
use Data::ParseBinary::Graphics::BMP qw{$bmp_parser};
use Data::Dumper;

my $filename = shift @ARGV;

open(my $fh,"<",$filename) or die "Couldn't open $filename for reading! ($!)";
my $data = $bmp_parser->parse(CreateStreamReader(File => $fh));
my $pixels = $data->{pixels};


my $counter = 0;
STOPME: foreach my $row (@$pixels) {
  foreach my $column (@$row) {
    my ($blue,$green,$red) = (@$column);
    printf("%02x %02x %02x\n",$blue,$green,$red);
    last STOPME if ($counter++ == 10);
  }
}

#print Data::Dumper->Dump([$pixels],[qw($pixels)]);