#!/usr/bin/perl

use strict;
use warnings;
use autodie;  # for I/O exception handling

use Image::Magick;

my $svg_filename = '/path/to/some.svg';
my $image = Image::Magick::->new();
open my $fh, '<', $svg_filename;
my $err = $image->Read(file => $fh);

if ($err) {
    print "Error b: $err\n";
    exit 1;
}

close $fh;  # moved after any code related to $fh

print "OK\n";

exit 0;