#!/usr/bin/perl

use strict;
use MGATools::iso qw(include_md5);

@ARGV || exit(1);

my $isofile = $ARGV[0];
my $err = include_md5($isofile, 0, 1);
print $err;