How to set bash profile remotely using perl and run a script - ssh

Question

i have a perl script which connects to remote server , edits a file ,runs some scripts in the remote server.
Here is the code
my $host= mx4d4;
my $FILE1 = 'Abc.conf' ;#this is a ; separted file
my $FILE2 = 'MyCode.py'; #python script
sub do_operation()
{
my $server="197.0.0.1"; #Just for the sake of example , this gets populated at my end
#Run the commands remotely
#change 3rd and 4th column to NEWSTR
system(
'ssh' => ('-q', $server),
'sed' => ('-i -E', qq('/$host/s#([^;]+;[^;]+;)[^;]+;[^;]+#\\1NEWSTR,NEWSTR #)'),$FILE1),
#change 4th and 5th column to STR
system(
'ssh' => ('-q', $server),
'sed' => ('-i -E', qq('/$host/s#([^;]+;[^;]+;[^;]+;[^;]+;)[^;]+;[^;]+#\\1NEWSTR,NEWSTR #'),$FILE1),
#Run python script
system(
'ssh' => ('-q', $server),
'$FILE2' => ('--run'),
)
}
Issues :
In the 3rd System command above , i am not able to run the PYTHON SCRPT successfully as i need to set the remote environment profile (using set_profile.sh )before running the python script , how to set the profile and run the python script at the same time in same system call.
Is it possible to have all 3 operations under only one system call

Answer 1

The command you execute with ssh is run using the default shell on the remote machine. According to the manual:
If a command is specified, it will be executed on the remote host
instead of a login shell. A complete command line may be specified
as command, or it may have additional arguments. If supplied, the
arguments will be appended to the command, separated by spaces,
before it is sent to the server to be executed.
So you can do for example the following to run multiple commands in a single session:
system "ssh", $server, "echo \$SHELL; echo \$HOSTNAME; export FOO=bar; echo \$FOO";
Example output
/bin/bash
openssh-server
bar