Not being a real Socket Expert (r), I can only suggest using Pod::Usage for the usage part.

See

perldoc perlpod
perldoc Pod::Usage
perldoc Getopt::Long
[download]

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.
[download]