As part of a larger Perl program, I need to execute a local bash script on a remote machine.
I would like to do the equivalent of:
#!/bin/bash
ssh <remotehost> bash -s <<EOF
<local bash script written here>
EOF
but from within a perl script using either backticks or system to run the ssh command.
Something like
#!/usr/bin/perl
my $output = `ssh <remotehost> bash -s` <<EOF
<local bash script written here>
EOF
Note that I want to load the bash script from within the same perl file where the ssh command is run -- not load it from an external separate file.
Note that I can't run Net::SSH since I don't have access to additional modules