if(open($fh, "-|")){
    while( < $fh > ){ $temp.= $_; }
    close($fh);
    open($fh, ">> /LogsEM/Log.txt");
    flock($fh, 2);
    print $fh "seg 1 ".$temp."\n";
    flock($fh, 8);
    close($fh);
}
exit;