Add a Perl example about sending commands