#!/usr/bin/perl

use CGI qw/:standard/;
use MicModule;

$dirbase = "/bipbip/AEROCOM/RETRO/" ;
my @rlist = ( 'UiO_V1');
chdir  $dirbase . $rlist[$r] . "/plots" ;
print  $dirbase . $rlist[$r] . "/plots \n" ;

my @flist = ();
my @flist = glob("*png");
print  $flist[1] ;
for($i=0; $i<@flist; $i++) {
    `echo $flist[$i]` ;
    `convert -geometry 60% $flist[$i] $flist[$i]`	;    

}
#for($i=0; $i<1; $i++) {
#chdir  $dirbase . $rlist[$r] . "/plots" ;
#print  $dirbase . $rlist[$r] . "/plots \n" ;




