1 File not found.  3_I|Mdv &K Index of /anon_sym/anon/usr/share/doc/perl-IO-Socket-SSL/example

Index of /anon_sym/anon/usr/share/doc/perl-IO-Socket-SSL/example

 NameLast modifiedSizeDescription
 Parent Directory   -  
 async_https_server.pl 2020-02-14 09:23 4.6K 
 lwp-with-verifycn.pl 2020-02-14 09:23 382  
 simulate_proxy.pl 2020-02-14 09:23 8.9K 
 ssl_client.pl 2020-02-14 09:23 1.9K 
 ssl_mitm.pl 2020-02-14 09:23 1.8K 
 ssl_server.pl 2020-02-14 09:23 2.4K 
  File not found. # lajhnF ?*3 #!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if $running_under_some_shell; # Convert POD data to formatted ASCII text. # # The driver script for Pod::Text, Pod::Text::Termcap, and Pod::Text::Color, # invoked by perldoc -t among other things. # # SPDX-License-Identifier: GPL-1.0-or-later OR Artistic-1.0-Perl use 5.006; use strict; use warnings; use Getopt::Long qw(GetOptions); use Pod::Text (); use Pod::Usage qw(pod2usage); # Clean up $0 for error reporting. $0 =~ s%.*/%%; # Take an initial pass through our options, looking for one of the form # -. We turn that into -w for compatibility with the # original pod2text script. for (my $i = 0; $i < @ARGV; $i++) { last if $ARGV[$i] =~ /^--$/; if ($ARGV[$i] =~ /^-(\d+)$/) { splice (@ARGV, $i++, 1, '-w', $1); } } # Insert -- into @ARGV before any single dash argument to hide it from # Getopt::Long; we want to interpret it as meaning stdin (which Pod::Simple # does correctly). my $stdin; @ARGV = map { $_ eq '-' && !$stdin++ ? ('--', $_) : $_ } @ARGV; # Parse our options. Use the same names as Pod::Text for simplicity. my %options; Getopt::Long::config ('bundling'); GetOptions (\%options, 'alt|a', 'code', 'color|c', 'errors=s', 'help|h', 'indent|i=i', 'loose|l', 'margin|left-margin|m=i', 'nourls', 'overstrike|o', 'quotes|q=s', 'sentence|s', 'stderr', 'termcap|t', 'utf8|u', 'width|w=i') or exit 1; pod2usage (1) if $options{help}; # Figure out what formatter we're going to use. -c overrides -t. my $formatter = 'Pod::Text'; if ($options{color}) { $formatter = 'Pod::Text::Color'; eval { require Term::ANSIColor }; if ($@) { die "-c (--color) requires Term::ANSIColor be installed\n" } require Pod::Text::Color; } elsif ($options{termcap}) { $formatter = 'Pod::Text::Termcap'; require Pod::Text::Termcap; } elsif ($options{overstrike}) { $formatter = 'Pod::Text::Overstrike'; require Pod::Text::Overstrike; } delete @options{'c