#!/usr/bin/env perl

use strict;
use File::Basename;

my $files = `ls -1 *.jpg`;
my @files = split(/\n/, $files);

foreach (@files)
{
	my $basename = basename($_, ".jpg");

	print "Zipping ... " .$basename . "\n";
	`zip ${basename}.zip ${basename}.{jpg,jgw,jpg.aux.xml,jpg.xml}`;
}

exit 0;