Thanks for your praise but this is rather basic Perl. If you think it useful, hang on to it, learn and practise. You can be there in no time as well.