my $lcmd="pwd";
	open (INPUT,"($lcmd) 2>&1 |");
	@ltext = <INPUT>;
	close (INPUT);
	my $result=$ltext[0];
	print("Output of pwd: $result");