#!/usr/bin/perl -w
my $size=100;
my $qual=50;
my $prefix="tn_";
$dir="/home/bthcraft/public_html/john/images";
opendir(DIR,"$dir");
my @files=grep(/\.jpeg$/,readdir(DIR));
closedir(DIR);
foreach $file (@files)
{
system("convert -geometry ".$size."x".$size."-quality
$qual $file".$prefix."$file");
}