# 1: suck in the 3 files, prelude, postlude, and the IVR results text open(UFILE, $prelude); @prelude_list = ; close(UFILE); open(UFILE, $postlude); @postlude_list = ; close(UFILE); # 2: now start emitting the results... # we do some serious surgery on the textfile contents, # and poop out table and cell data. print @prelude_list; print '

Your request has been processed.

'; print '

There will be a slight delay before your call is processed.

'; print '

To view the status of the call, click the link at left labelled Current Notifications.

'; print '

Or you will be directed there automatically in 10 seconds.

'; print @postlude_list;