in reply to LWP Post Question

Anyone has the working Perl code for this topic? I still do not get it.