#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

use lib "d:/module/NIAlbum/lib";
use NIAlbum;

my $gallery = NIAlbum->new();
my $thumb = $gallery->create_thumb( "e:/www/webroot/gallery-images/bla", "e:/www/webroot/thumb" );