Select Code to Download

#!/usr/bin/perl

...
# Hand over control
# Destroy the expect object
$spawn->soft_close();

# perl ssh.pl <host name> <port> <username> <password>
Password:
...

You are now master for the port.