#!/usr/bin/perl
#

$CONVERT='/usr/bin/X11/convert'   ;
$GIFDENSITY="40x40" ;# gif image の大きさ指定, convert での解像度指定
$RM = '/bin/rm'; 
$MV = '/bin/mv';



opendir(DIR, ".");
@FILES = grep(/jpg$/, readdir(DIR));


foreach $FILE (@FILES){

    $GIF = $FILE ;
    $GIF =~ s/\.jpg$// ;

    print "$CONVERT $FILE...$GIF.ps \n" ;
#	system ("$CONVERT -density $GIFDENSITY $FILE $GIF.ps") ;
	system ("$CONVERT -size 100x100 $FILE $GIF.jpg") ;

}




