#!/usr/local/bin/perl
use strict;
use warnings;
             
    system("sdb -d root on 'sdb -d shell; cd /opt; ls';bash ");

##</code><code>##

    system("sdb -d shell 'cd /opt; ls';bash ");

##</code><code>##

   system("sdb -d root on");