#! /s/perl/bin/perl


foreach $file (@ARGV){

    rename("$file", "${file}.bak") || die "Couldn't mv $file to ${file}.bak\n";

    printf "Double copying $file\n";

    open(IN, "${file}.bak");
    open(OUT, "> $file");
    
    while(<IN>){
        print OUT;
    }

    close IN;

    print OUT "<!-- SPF: Split Init Here.  -->\n";
    print OUT "<P>\n";
    print OUT "-----------------------\n";
    print OUT "<H3> SPLIT HERE </H3>\n";
    print OUT "-----------------------\n";
    print OUT "<P>\n";
    print OUT "<!-- SPF: Split End Here.  -->\n";
    
    open(IN, "${file}.bak");
    while(<IN>){
        print OUT;
    }
    
    close OUT;
    close IN;

    unlink("${file}.bak");
}

##########################