#!/usr/bin/perl

use warnings;
use strict;
use Getopt::Long;

my ($option_test);
my $check_option = GetOptions( "test=s" => \$option_test );
die 'Invalid option' if ( $check_option ne 1 );

print "next line";