[Feature]Upload Modem source code
Change-Id: Id4294f30faced84d3e6fd6d5e61e1111bf287a37
diff --git a/mcu/tools/sender2.pl b/mcu/tools/sender2.pl
new file mode 100644
index 0000000..e6a3369
--- /dev/null
+++ b/mcu/tools/sender2.pl
@@ -0,0 +1,11 @@
+use Net::FTP;
+$ftp = Net::FTP->new("10.15.10.34", Debug => 0) or die "Cannot connect to RD3 ftp: $@";
+$ftp->login("rd3build",'xu06z8dkrd3') or die "Cannot login ", $ftp->message;
+$ftp->binary or die "Can not change to binarry mode\n";
+if(!-e $ARGV[0]){
+ die "Can not find file:".$ARGV[0]."\n";
+}
+$ftp->put("$ARGV[0]") or die "Upload failed ", $ftp->message;
+$ftp->quit;
+
+exit 0;