$test=Expect->spawn("/bin/sh")  || die "Can't spawn /bin/sh:$!";