#!/usr/bin/perl

use strict;

my $shpid = open( SH, '|-', '/bin/bash' ) or die "Can't launch bash: $!\n";

my @command_list = ( 
   "first_command args ...\n",
   "second_command args ...\n"
   ... );

for my $cmd ( @command_list ) {
    print SH $cmd;
}
print SH "exit\n";
waitpid( $shpid, 0 );