Help for this page
$cisco->login_auth( $whatever );
sub login_auth{ my ($self, $whatever) = @_; # Now $self contains whatever sub new() put into it. # and $self can be updated to include more useful things. }