#File name: "migrate.pl"

#This file will fetch the data from "para.txt" and use #them to invoke the command line

open(INFD, "para.txt") or die "Error reading the file.....Please try again\n";

@str = <INFD>;

$i=0;
$edit = {};

while($i <= $#str)
{
	$line = $str[$i];
	chop($line);

	@lineContents = split(/=/, $line);

	$edit->{$lineContents[0]} = $lineContents[1];

#	print "one = $lineContents[0], two = $lineContents[1]\n";

	$i++;
}


foreach $i (keys (%$edit))
{
	
	print "Key = $i Val = $edit->{$i}\n";
}

@str1 = `SRVMNGR – g GATEWAY –e ENTERPRISE SERVER –s USER –p PASSWORD –c”Run Task for comp SYSTEM_NAME processName="UDA Batch Deployment", RowId=”Captured Session Id”`;

print @str1; #I doubt if this will invoke the command line