my ($pid, $writeme);
for(0..4){
	$pid = open $writeme, "|-",
		"c:\\apps\\curl\\curl -u user$_ -X DELETE http://localhost:3000/site/users/user$_";
	sleep 2;
	print $writeme "password$_\r"; #curl isn't receiving this input
	close $writeme; #perl hangs here
	sleep 1;
}