#!/usr/bin/perl -w
#by Torben Menke
#http://www.entorb.net
# Script that writes some text on all images that are given as parameter
# needs Image Magick to be installesd

#TODO:

use strict; #makes perl stricter: all new vars. have to be defined
use warnings;

# convert $oldname -gravity "SouthEast" -pointsize 18 -fill black -stroke white -draw "font-weight bold text 5,5 'Foto: H. Schmidt-Teege (WA)'" $newname


my $oldname;
my $newname;
print 'Enter Caption: ';
my $text = <STDIN>;
chop $text;
die 'No text entered!' if $text eq '';

for (@ARGV) {
$oldname = $newname = $_;
print $oldname;
print `convert $oldname -gravity "SouthEast" -pointsize 18 -fill black -stroke white -draw "font-weight bold text 5,5 '$text'" $newname` . "\n";
}
print "_done_\n";

---

Hope you found what you where looking for. Feel free to drop me a line
Torben