2689 use strict;

  2689 use strict;

  2690 use warnings;

  2690 use warnings;

  2691 use Fatal qw/open/;

  2691 use Fatal qw/open/;

  2692 

  2692 

  2693 $0 = 'shelldap';

  2693 $0 = 'shelldap';

  2695 

  2695 

  2696 use Getopt::Long qw(:config no_ignore_case);

  2696 use Getopt::Long qw(:config no_ignore_case);

  2697 use YAML::Syck qw//;

  2697 use YAML::Syck qw//;

  2698 use Pod::Usage qw//;

  2698 use Pod::Usage qw//;

  2699 eval { require Term::ReadLine::Gnu; };

  2699 eval { require Term::ReadLine::Gnu; };