#/usr/bin/perl

opendir DIR, ".";
@dir = readdir DIR;
foreach $file (@dir){
    if ($file=~ /\.png$/){
	system "convert  -geometry 240x320 $file ../doc6s/$file";
    }
}
close DIR;