The script works by extracting bits from a string to obtain eight strings.
These are then eval()ed in sequence. The strings are:

    select(S);$B=$ENV{NNTPSERVER};socket(S,2,1,6)||die$!    
    connect(S,pack"Sna4x8",2,119,"".gethostbyname$B)||die$! 
    ($_=<S>)=~/^2/||die$_;$|=1;$\="\r\n";*_=sub{print@_}    
    _("GROUP comp.lang.perl.announce");($_=<S>)=~/^2/||die$_
    _(@ARGV?"ARTICLE $ARGV[0]":"XHDR Subject 1-999999")     
    ($_=<S>)=~/^2/||die$_;select(STDOUT);                   
    while(<S>){s!\r?\n!!;/^\.$/&&last;s/^\.//;print}        
    select(S);_("QUIT");($_=<S>)=~/^2/||die$_               

which implement a newsreader without using Socket.pm or any of the other
modernities. As it can be seen, the newsgroup name is hardcoded in, but
then that's all one would need to read, so it's OK. To keep the code short,
the symbol "_" is been slightly overloaded, so &_ will print a line to STDOUT.

