Perl socket example and C Security demo