#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;

my $verbose;

GetOptions(
    "verbose" => \$verbose
);

print "you want output.\n " if $verbose;

##</code><code>##

$ perl scriptA.pl --verbose
you want output.
$ perl scriptA.pl