Perl porting of docopt