# dirwalk demo profile
{
    # option declaration
    'opt' => { 'opt1' => undef,
               'opt2' => undef,
           },

    'src' => '\.jpg$',

    # prepare( $subprofile, $opt )
    'prepare' => sub {
        my ($p,$o) = @_;
    },

    # particular subprofiles 
    'sub' =>
        [
         # subprofile for different image sizes
         { 
             # [ w, h, keep-exif(0/1) ]
             'sizes' => [ [1400,1050, 0],
                          [1024, 768, 0],
                          [ 800, 600, 0] ],
             
             # sub( $dirpart, $filepart, $w )
             'dir_file' => sub { 
                 my ($d,$f,$w) = @_; 
                 return ( sprintf( "$d/%.4i", $w ), $f );
             },
             
             
             'convert' => [ '-quality', '75' ],
            
             'exif' => {  },
         },
         
         ],
};
