#!/usr/bin/perl
use strict;

my $OPT_V = grep(/-v/, @ARGV) ? 1 : 0;
my $OPT_N = $ARGV[0] || '1';

mkdir 'x'     if !-d 'x';
mkdir 'raw'   if !-d 'raw';
mkdir 'trash' if !-d 'trash';

foreach my $file (glob '[0-9]*.jpg') {
    print "mv $file x\n";
    rename($file, "x/$file") if !$OPT_V;
}

die "There are already files: cimg$OPT_N*.jpg!\n"
    if glob("cimg$OPT_N*.jpg") != 0;

foreach my $file1 (glob 'cimg0*.jpg') {
    my $file2 = $file1;
    $file2 =~ s/0/$OPT_N/;
    print "mv $file1 $file2\n";
    rename($file1, $file2) if !$OPT_V;
}