How can I do the equivalent of this shell script in perl?

#!/bin/sh
/usr/sbin/nsradmin -s server -i <<EOF
. type: NSR $1; name: $2
print
EOF

where I'm just printing out the info to standard output and $1 and $2
are passed to the script and would be something like 'client' and
'client_name', or 'group' and 'group_name', etc. I tried all kinds of
open commands with pipes, etc. Nothing seems to work.

Thanks.

George

--
Note: To sign off this list, send a "signoff networker" command via email
to listserv AT listmail.temple DOT edu or visit the list's Web site at
http://listmail.temple.edu/archives/networker.html where you can
also view and post messages to the list. Questions regarding this list
should be sent to stan AT temple DOT edu
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=