$command='find /home/spe/ -name "Main*" | wc -l';
$ret = qx($command);
print "\n$ret\n";