or download this
#!/usr/bin/perl -w
use strict;
...
6,AB499,none,Somebody.Admin@mysite.com,none,none,1,dbase,none,none,non
+e
7,XX777,myserver,Anon.Person@mysite.com,business,/nfs/busback/upload/i
+ncident,10,dbase,none,none,none
8,XX777,myserver,Anon.Person@mysite.com,business,/nfs/busback/upload/i
+ncident,10,dbase,Aug 13 2010 8:30AM,Aug 13 2010 9:00AM,completed