sub createImageMagickThumb {

    my  $filename = shift || '';
    my $t = new Image::Thumbnail(
            size       => 55,
            create     => 1,
            input      => '$imgdir/$filename',
            outputpath => '$imgdir/thumb.$filename',
    );

    print "Content-Type: text/html\n\n";
    print "outputpath => '$imgdir/thumb.$filename'";
}