Mine

#!/usr/bin/perl -w

use strict;
use Getopt::Long;

my %ops = ();
GetOptions(\%ops, 'platid:', 'email:', 'name:', 'phone:', 'trial:', 'servicelevel:', 'active:');

# running this from command line gives this:
#
# Error in option spec: "platid:"
# Error in option spec: "email:"
# Error in option spec: "name:"
# Error in option spec: "phone:"
# Error in option spec: "trial:"
# Error in option spec: "servicelevel:"
# Error in option spec: "active:"
#