use IPC::System::Simple qw/capture/;
my $output = capture('cd /server/setup && setenv.cmd && tmboot -y');