wrt/testgal.pl

#!/usr/bin/perl

# This is a basic test of an image gallery function I'm working on.

use warnings;
use strict;

use lib 'lib';
use Display::Image;

print Display::Image::gallery(
  "/home/bbearnes/p1k3.com/archives/winfield",
  "http://p1k3.com/winfield"
);