#!/usr/bin/env perl
use warnings;
use strict;
print <<EOF
photog-scale - Scales an image to web size

Usage: photog-scale original.jpg web.jpg
EOF
and exit if @ARGV != 2;

my $command = qq[convert "$ARGV[0]" -resize 10000x2160 -quality 88% "$ARGV[1]"];

exit !!system($command);
