Help for this page

Select Code to Download

Select or download this


#!/usr/bin/perl -w
...

    print $sock "GET /\r\n\r\n";
    while ( <$sock> ) { print }