while ($m <=$blocks){
$ins_filename = "PMorph_$m.ins";	
system ("platon -c $ins_filename");    #dialog window open
$m++;