Expect.pm登录路由器并执行命令

Question

我正在尝试登录路由器并执行命令。我可以用Net::ssh::Perl来做到这一点。但我想使用perl Expect.pm代替Net::ssh::Perl。有人可以告诉我如何使用expect.pm进行以下步骤吗？

    use strict;
    use warnings;
    use Net::SSH::Perl;

    my $host     = "ip";
    my $password = "password";
    my $user    = "user";

    $ssh = Net::SSH::Perl->new($host);
    $ssh->login($user, $password);

    # Get into config terminal prompt 
    $ssh->cmd("configure terminal");

   # Execute the command   
    my $cmd = $ssh->cmd("show crytpo session");
    print($cmd);