You haven't defined the variables $server, $proc and $prog. Try adding my statements at the top of your program.