#-- set up a new connection
	my $ssh = Net::SSH::Perl->new($host);
#-- authenticate
	$ssh->login($user, $password);
#-- execute the command
        $ssh->cmd('SET ORACLE_SID=testsid');

$command = 'sqlplus scott/tiger @testscript.sql'
$ssh->cmd($command);

my $cmd1 = 'set TEST=Success && echo %TEST%';

my($stdout, $stderr, $exit) = $ssh->cmd($cmd1);

print "$stdout, $stderr, $exit \n";

my($stdout, $stderr, $exit) = $ssh->cmd(<<SHELL);
set ORACLE_SID = testsid;
sqlplus "/as sysdba" @test.sql;
SHELL

(
echo This is an test > test.out
set VAR=yo           >>test.out
echo %VAR%           >>test.out  
) | cmd.exe /c

C:\>(
Mehr? echo This an test > test.out
Mehr? set VAR=yo        >>test.out
Mehr? echo %VAR%        >>test.out
Mehr? ) | cmd.exe /c

U:\>type test.out
This an test
%VAR%

C:\>