open(OUTPUT,"$run|"); 
$type=<OUTPUT>; 
close(OUTPUT);