Perl Getopt::Long

#!/usr/bin/perl -w

use strict;
use Getopt::Long;

my $file_name = "";
my $verbose   = 1;

GetOptions(
    "file_name=s" => \$file_name,
    "verbose"     => \$verbose,
);

print $file_name;

print "\n";

print $verbose;

print "\n";