Help for this page
#!/usr/bin/perl ... while (<$client>) { print $_ ;} exit;
#!/usr/bin/perl ... exit; }