#!C:\Interwoven/TeamSite/iw-perl/bin/iwperl.exe -wuse strict;open(DATA, "<SOME TEXT FILE");my $id = <DATA>;my $newid = $id++;close(DATA);open(DATA, ">SOME TEXT FILE");print DATA $newid;close(DATA);print qq^Content-type: text/html<html> <body onload='parent.getScriptFrame().IWDatacapture.getItem("/id").setValue("$newid")'/></html>^;return;
