If you want to log on the local system, then you should try:

my $logFile = IO::File->new("$someFile", 'a');
my $cmd = qx($rsh $host -l $id "$command");
print $logfile $cmd;
[download]

You might also want to look at IPC::Open2 and IPC::Open3.