#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use test_undef;
use Getopt::Long;

my $language;
GetOptions(
    "language=s" => \$language,
);
my $test = test_undef->new(
    'language' => $language,
);

say $test->language;