I've just found a solution to my own problem... I'm quite new to perl and I've just discovered IO:Select after looking at 133389, which solves all my problems!

Thanks!