in reply to System() or the like

either $type=`$run`; (those are backticks, not quotes) or 
open(OUTPUT,"$run|"); 
$type=<OUTPUT>; 
close(OUTPUT);

[download]
should do it. Both are in the 'Social Perl' chapter of the camel book, IIRC.

In Section Seekers of Perl Wisdom