#!/usr/bin/perl
my @pics = (<*.jpg>,<*.JPG>,<*.gif>,<*.GIF>);
foreach $_ (@pics) {
	system ("convert -geometry 80x80 -quality 25 $_ t_${_}") == 0 || 
		print "problems with convert on $_\n";
	}
foreach $_ (@pics) {
	print "$_\n";
	}