#!/usr/bin/env perl

use strict;
use warnings;
use Image::JpegQuality;

my $q;
if (@ARGV) {
    $q = jpeg_quality($ARGV[0]);
} else {
    my $data = do { local $/; <> };
    $q = jpeg_quality(\$data);
}

print $q, "\n";
