Help for this page
#!/usr/bin/perl ... print <$input> ."\n"; close( $input ); }
#!/usr/bin/perl ... close( $socket ); $i++; }