open2(\*Reader,\*Writer, "/usr/tools/prog start");
Writer->autoflush();
print Writer <<"!";
password
!