#!perl -w
$introfile='0intro.log';
die if -e $introfile;
open FO,">$introfile";
$f="";
while(<>){
    if (/single_install\s+(.*)/ or /dry_run_good.* (\S+)$/){
        $newf=$1;
        if($newf ne $f){
            $f=$newf;
            close FO;
            $df=$f;
            while (-e $df){
                $df.="Z";
            }
            open FO,">$df.log";
        }
    }
    print FO;
}