#!/usr/bin/perl
use strict;
use warnings;
use Image::BMP;

my $img2 = Image::BMP->new();
$img2->open_file('another.bmp') or die("Cannot open file: $!");
print "done";