^^&&^^

Edit File: safeperlinstaller

#!/usr/bin/expect --

spawn /usr/local/cpanel/scripts/perlinstaller [lindex $argv 0]

set question "\\? \\\["

set timeout 350
while {1} {
	expect {
		"*perlmod--Install done*" {
			exit
		}
		"*Press return to continue*" {
			send "\r"
		}
		"*Apache source not found*" {
			send "q\r"
		}
		"*Which OpenSSL build path*" {
			send "/usr\r"
		}
		"*path name or q to quit*" {
			send "q\r"
		}
		"*run the tests anyway*" {
			send "no\r"
		}
		"*update your config*" {
			send "no\r"
		}
		"*mod_perl*\\?*" {
			send "n\r"
		}
		#/usr/lib/libjpeg.a
		"*Build JPEG support*" {
			if {[file exists "/usr/lib/libjpeg.a"]} {
				send "y\r"
			} else {
				send "n\r"
			}
		}
		"*please give the full path to an httpd*" {
			send "!\r"
		}
		"*where I can find your apache src*" {
			send "q\r"
		}
		"*Build XPM support*" {
			if {[file exists "/usr/X11R6/lib/libXpm.a"]} {
				send "y\r"
			} else {
				send "n\r"
			}
		}
		"*_proxy\?*" {
			send "\r"
		}
		"*Build FreeType support*" {
			if {[file exists "/usr/lib/libttf.so.2"] || [file exists "/usr/lib/libttf.so.1"]} {
				send "n\r"
			} else {
				send "n\r"
			}
		}
		"*XALAN base directory*" {
			send ".\r"
		}
		"*add the remove instructions*" {
			send "no\r"
		}
		"*put them on one line*" {
			send "1\r"
		}
		"*choice:*" {
			send "\r"
		}
		"*continent*" {
			send "5\r"
		}
		"*country*" {
			send "3\r"
		}
		-re $question {
			send "\r"
		}
		timeout {send "\r"; exp_continue}
		default {}
	}
}