Select Code to Download

my $s = Net::Appliance::Session->new({
     personality => "FreeBSD411",
...
finally {
    $s->close;
};

prompt user
    match /[Uu]sername: $/
...
    send ''
#    send terminal length %s

......
[   0.589068] di queueing data for send: ""
...
Sorry
[user1@freebsd411 /]$
..............................

  $s->begin_privileged({$su_pass});    ## I don't know how to call/use
+ this ;) or Doesn't work ?

110    $self->prompt_looks_like('privileged')
111        or die 'should be in privileged mode but prompt does not ma
+tch';
112    $self->in_privileged_mode(1);