Sorry, i posted this from home and the script was at work....
Here it is:
#!/usr/bin/expect -f
spawn -nottycopy /usr/bin/ssh
root@machine.com
expect "\#" {send "cd /ult-bldsys\r"}
expect "\#" {send "export DISPLAY=:0.0\r"}
expect "#" {send "exec /usr/bin/perl /ult-bldsys/test&\r"}
#This is commented out for trial purpose, trying exec vs. spawn
#vs. send
#expect "#" {send "perl /ult-bldsys/test&\r"}
expect eof
#expect "#" {send "exit\r"}