# Script test.pl
use vars qw{ $opt_a };
use Getopt::Std;
getopts('a:') or finish(1);

system("echo String: $opt_a\n");