first perl programs and few c++ :)