Select Code to Download

#!/usr/bin/perl

...
    print $client "HTTP/1.1 200 OK\nContent-Type: text/plain\n\nhi";
    $client->shutdown(2);
}