use Modern::Perl;
use Digest::SHA;
use Fcntl;
use Encode;
use C4::Context;
warn "Filename or dirname contains '..'. Aborting upload";
return;
}
$filename = decode_utf8($filename);
my $buffer;
my $data = '';
-