require "cacheout.pl";

while (<>) {
    $filename = (split(/:/,$_))[3];     # Or whatever.
    if ($filename ne $lastfilename) {
	&cacheout($filename);
	$lastfilename = $filename;
    }
    print $filename $_;
}
