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