added getopt example in Perl