$cmd = '/usr/bin/perl -w t/analyz.t|' my $fh = new FileHandle; $fh->open($cmd) or print "can't run $test. $!\n";