my $ssh = Net::SSH::Perl->new("mybox.myhost.com");

$ssh->login($user, $pass);

$ssh->cmd( "export SYBASE=\"/usr/local/sybase/OC\"" );
$ssh->cmd( "export AUTOSYS=\"/usr/platinum/autosys\"" );
$ssh->cmd( "export AUTOUSER=\"/usr/platinum/autouser\"" );
$ssh->cmd( "export __std_err_file=/dev/null");
$ssh->cmd( "export __command=NIL");
$ssh->cmd( "export AUTO_JOB_PID=0");
$ssh->cmd( "export AUTO_JOB_NAME=\"myjob\"");
$ssh->cmd( "export APP_ROOT=");
my($stdout, $stderr, $exit)=$ssh->cmd( "autorep -q -J myjob#init#t" );
print "$stdout\n";