Sending Commands with Perl, IO::Socket

If you are using openwrt, please refer to following topic: