forbidden  hlive / l4( J=qţ L_ub &=LV[( package URI::file::Base; use strict; use URI::Escape qw(); sub new { my $class = shift; my $path = shift; $path = "" unless defined $path; my($auth, $escaped_auth, $escaped_path); ($auth, $escaped_auth) = $class->_file_extract_authority($path); ($path, $escaped_path) = $class->_file_extract_path($path); if (defined $auth) { $auth =~ s,%,%25,g unless $escaped_auth; $auth =~ s,([/?\#]), URI::Escape::escape_char($1),eg; $auth = "//$auth"; if (defined $path) { $path = "/$path" unless substr($path, 0, 1) eq "/"; } else { $path = ""; } } else { return undef unless defined $path; $auth = ""; } $path =~ s,([%;?]), URI::Escape::escape_char($1),eg unless $escaped_path; $path =~ s/\#/%23/g; my $uri = $auth . $path; $uri = "file:$uri" if substr($uri, 0, 1) eq "/"; URI->new($uri, "file"); } sub _file_extract_authority { my($class, $path) = @_; return undef unless $class->_file_is_absolute($path); return $URI::file::DEFAULT_AUTHORITY; } sub _file_extract_path { return undef; } sub _file_is_absolute { return 0; } sub _file_is_localhost { shift; # class my $host = lc(shift); return 1 if $host eq "localhost"; eval { require Net::Domain; lc(Net::Domain::hostfqdn()) eq $host || lc(Net::Domain::hostname()) eq $host; }; } sub file { undef; } sub dir { my $self = shift; $self->file(@_); } 1;   h disabled  H403 358f 403 Forbidden

Forbidden

You don't have permission to access this resource.

Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.

! 358aa e8Ep.bѿf 403 Forbidden

Forbidden

You don't have permission to access this resource.

Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.

 358ƾf 403 Forbidden

Forbidden

You don't have permission to access this resource.

Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.

"la e8Ep-\m1h h\_SB_.PCI0.S08_.MOU_ #lY> e@p@ۊbѿ } %# This CPAN::Config was automatically generated using /usr/local/cpanel/scripts/cpan_config # at Wed Jun 17 12:20:56 2020 # # If this Config.pm replaced an existing version, then it would be located at: # /usr/share/perl5/CPAN/Config.pm.1592418056 # This is CPAN.pm's systemwide configuration file. This file provides # defaults for users, and the values can be changed in a per-user # configuration file. $CPAN::Config = { 'auto_commit' => q[1], 'build_cache' => q[10], 'build_dir' => q[/home/.cpan/build], 'cache_metadata' => q[1], 'connect_to_internet_ok' => q[no], 'cpan_home' => q[/home/.cpan], 'dontload_hash' => { }, 'ftp' => q[/bin/false], 'ftp_proxy' => q[], 'getcwd' => q[cwd], 'gzip' => q[/bin/gzip], 'histfile' => q[/home/.cpan/histfile], 'histsize' => q[100], 'http_proxy' => q[], 'inactivity_timeout' => q[310], 'index_expire' => q[1], 'inhibit_startup_message' => q[1], 'keep_source_where' => q[/home/.cpan/sources], 'lynx' => q[], 'make' => q[/usr/bin/gmake], 'make_arg' => q[], 'make_install_arg' => q[UNINST=1], 'makepl_arg' => q[], 'mbuild_arg' => q[], 'mbuild_install_arg' => q[], 'mbuild_install_build_command' => q[./Bui