Select Code to Download

#!/usr/local/bin/perl
# this is the code for sever.pl, my mini-server
...
    $msg_txt = "$msg_num $msgs{$msg_num}";
    print "HTTP/1.0 $msg_txt\n";
}

> more badreq.txt
GET /index.html HTTP/1.1

> ./server.pl badreq2.txt
HTTP/1.0 400 
HTTP/1.0 400 Bad Request