sub pageCount {
    my $FILE = shift;
    my $IMAGE = Image::Magick -> new();
    $IMAGE -> Read( $FILE );
    my $PAGECOUNT = $#$IMAGE+1;
    undef $IMAGE;

    return( $PAGECOUNT );
}