use IPC::System::Simple qw( system );

system($_)
   for
      'batch -b -submit abcd.txt',
      'perlscript features.txt',
      'perldata data.txt';

##</code><code>##

use IPC::System::Simple qw( system );

system($_)
   for split /\n/ <<'__EOI__';
batch -b -submit abcd.txt
perlscript features.txt
perldata data.txt
__EOI__