#!/usr/bin/perl
use strict;
use warnings;

open (SH, '<', '/path/to/shell-script') or die "$!\n";
my $script = join("\n", <SH>);
qx/$script/;
close SH;

exit $?;