yep got it working just needed to follow your suggestions.
I'll convert the backtick shell bit to use perl internal operations
(I had it running as a shell command so it was easier this way)