#!/usr/bin/perl
require "weblib.lib";
&htmlopen("Test SSH");
$sshdata=<<EOF;
ls -l;
who;
touch /tmp/tmp$$
printenv;
EOF
open(TMP,">/tmp/tmp$$.sh");
print TMP $sshdata;
close TMP;
system('pwd');
print qq{<br>Executing 'sh /tmp/tmp$$.sh'};
print "<pre>\n";
system("sh /tmp/tmp$$.sh");
print "</pre>\n";