#!/usr/bin/perl -w
use strict;

use Getopt::Long;

my $string;

GetOptions( "string=s" 	=>	\$string
);

printf("string = $string\n");