Net-SSH-Tunnel

Net::SSH::Tunnel is a simple wrapper around ssh to establish a tunnel.
Supports both local and remote port forwarding.

You'd need to create a very short script like below, and invoke it.
Command line options are parsed inside the module.
#!/usr/bin/perl

use strict;
use warnings;
use Net::SSH::Tunnel;

Net::SSH::Tunnel->run();

# run the driver script with options.
$ ./driver.pl --host dest.example.com --hostname hostname.example.com
    
# the above is equivalent to creating a local port forwarding like this:
# ssh -f -N -L 10000:dest.example.com:22 <effective username>@hostname.example.com

# after the driver script is done, you can then do:
ssh -p 10000 user@localhost

PREREQUISITES

The following modules are required by Net::SSH::Tunnel
    Log::Log4perl

INSTALLATION

To install this module, run the following commands:

    perl Makefile.PL
    make
    make test
    make install

SUPPORT AND DOCUMENTATION

After installing, you can find documentation for this module with the
perldoc command.

    perldoc Net::SSH::Tunnel

You can also look for information at:

    RT, CPAN's request tracker (report bugs here)
        http://rt.cpan.org/NoAuth/Bugs.html?Dist=Net-SSH-Tunnel

    AnnoCPAN, Annotated CPAN documentation
        http://annocpan.org/dist/Net-SSH-Tunnel

    CPAN Ratings
        http://cpanratings.perl.org/d/Net-SSH-Tunnel

    Search CPAN
        http://search.cpan.org/dist/Net-SSH-Tunnel/


LICENSE AND COPYRIGHT

Copyright (C) 2012 Satoshi Yagi

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.