$ cat wanradtXXX.pl
#!/usr/bin/perl --

use autodie;

## system $^X, 'wanradtXXX.pl', '--ReadImages';
## system $^X, 'wanradtXXX.pl', '--UploadImages';

system $^X, 'wanradtXXXReadImages.pl';
system $^X, 'wanradtXXXUploadImages.pl';