#!/usr/bin/perl -w use MGO; use Getopt::Long; GetOptions('help' => \ (my $help), 'version' => \ (my $version), ); print "HELP : $help\n" if(defined $help); print "VERS.: $version\n" if(defined $version);