#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Std;
use Pod::Usage;

while(my($from, $to) = splice @ARGV, 0, 2) {
    for($from .. $to) {
        printf("DSC_%04d.JPG\n", $_);
    }
}

__END__

=head1 NAME

    pseq - Print a DSC picture sequence

=head1 DOWNLOAD

_SRC_HERE_

=head1 SYNOPSIS

    pseq 1 10

=head1 DESCRIPTION

C<pseq> prints digital camera picture files sequences.

=head1 EXAMPLES

  $ pseq 1 3 9 11
  DSC_0001.JPG
  DSC_0002.JPG
  DSC_0003.JPG
  DSC_0009.JPG
  DSC_0010.JPG
  DSC_0011.JPG

=head1 LEGALESE

Copyright 2007 by Mike Schilli, all rights reserved.
This program is free software, you can redistribute it and/or
modify it under the same terms as Perl itself.

=head1 AUTHOR

2007, Mike Schilli <cpan@perlmeister.com>