#!/usr/bin/perl -w

my $pdfdir= "/mnt/sun/export/seiten-jpgs";
my $outdir= "/home/kamp";



use File::Path;
use File::Copy;

chdir ("$pdfdir");
foreach $file (glob("*.pdf"))
{
    ($name = $file) =~ s/^(.*)\.pdf/$1/;
	"/usr/bin/gs -q -dNOPAUSE -r144 -dBATCH -sDEVICE=jpeg -sOutputFile=$outdir/$name.jpg $pdfdir/$name.pdf";
}