# my program
# test.pl
use strict;
use Getopt::Long;
my $Dir;
GetOptions (
    "Dir=s" => \$Dir,
);