#!/usr/bin/env perl
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);