#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

use Getopt::Long;

my %opt;

GetOptions(\%opt, 'v');

say 'Before assigning $opt{input}:';

if ($opt{v}) {
    say $ARGV[0], ' (verbose)';
}
else {
    say $ARGV[0], ' (quiet)';
}

$opt{input} = $ARGV[0];

say 'After assigning $opt{input}:';

if ($opt{v}) {
    say $opt{input}, ' (verbose)';
}
else {
    say $opt{input}, ' (quiet)';
}