Select Code to Download

sub new{
  my ($class, $logname) = @_;
...
  open   $self->{LOGFH}, ">>", $logname or die "Could not append to $l
+ogname : $!";
  return $self;
}

  my $cisco = cisco::->new();
  $cisco->login_auth();