This worked brilliantly for me, thanks. The pack bit did however cause a warning. After some fooling around I changed:

pack("c8",33,249,4,5,16,0,0,0)
[download]

to

pack("C8",33,249,4,5,16,0,0,0)
[download]

and that seemed to do it.