my $session_obj = Net::Appliance::Session->new(
        Host => "swi-87",
                Platform => 'IOS'                       
                Transport => 'SSH',
                                        );

         $session_obj->connect(
               Name => $userinfo[0],
                     Password => $userinfo[1],
                           SHKC => 0
                                 );


    $session_obj->input_log(*STDOUT);
    $session_obj->begin_privileged($userinfo[1]);
    $session_obj->cmd("copy tftp bootflash:");
    $session_obj->cmd('10.148.48.52');
    $session_obj->cmd("cat4500-ipbasek9-mz.122-31.SGA9.bin");
    $session_obj->close;