[ Avaa Bypassed ]

Upload:

Command:

hmhc3928@3.133.156.254: ~ $ 
package TieOut;

use strict;

sub TIEHANDLE {
    my $scalar = '';
    bless( \$scalar, $_[0] );
}

sub PRINT {
    my $self = shift;
    $$self .= join( '', @_ );
}

sub PRINTF {
    my $self = shift;
    my $fmt  = shift;
    $$self .= sprintf $fmt, @_;
}

sub FILENO { }

sub read {
    my $self = shift;
    my $data = $$self;
    $$self = '';
    return $data;
}

1;

Filemanager

DIR : / usr/ share/ doc/ perl-Test-Simple-0.98/ t/ lib/
Name Type Size Permission Actions
Dev Folder 0755
Test Folder 0755
Dummy.pm File 55 B 0644
MyOverload.pm File 607 B 0644
NoExporter.pm File 150 B 0644
SigDie.pm File 79 B 0644
TieOut.pm File 372 B 0644