started coding Perl script fot cam-polling