#!/bin/perl

use Getopt::Std;
use vars qw/ %opt /;
my $args = 't:s:a:';
getopts( "$args", \%opt );

$targetdir = $opt{t};
$searchstring = $opt{s};
$string_to_append = $opt{a};

print "my values: $targetdir , $searchstring, $string_to_append \n";