Perhaps I'm missing the point, but there already is an application to do what you want. It's called Telnet. Telnet to the server and start the shell script.

If your solution *MUST* be in Perl, have a look at Net::Telnet.