GetOptions( 'test=s' => \$option_test )
    or die("Invalid command-line option\n");

defined($option_test)
    or die("Missing argument -t\nInvalid command-line option\n");