Select Code to Download

package TextLogger;
use strict;
...
}

1;

package PerlSvc;
use strict;
...
        doPad($sec, 2) . "\n";

}

package PerlSvc;
use strict;
...
sub Interactive {
    Startup();
}

H4sICEUa804CA2Nsb2NrLmJtcADNWndYlEcT/ykoiAUVgyXG3rDH2MWOiN2onyUqGBv2Gi
+vWxJqo
GDU2sFcsWFEUe0ExohSxIaAoRQEr7KTn23J3HAd3nMgf2eeB2zK7szszO23fdt2q1YIs9p
+ZADf47
...
OhCnmJx9mRHuopeZaDluU4Au3xgb4D22pX7aIjznX5gkuFsbfK+S18o6r0GXxdCnn/alDO
+3oYvpb
nA7bPj1ny+cfHlQu6/XL9PNhuZQU5qukHp/fuVL+9NUtKzrPOfIul7/BUiUh7IK//4WQBP
+rPlf8D
MsEJPyYrAAA=

base64 -d clock.bmp.gz.base64 | zcat > clock.bmp

#!/usr/bin/perl -w
use strict;
...
    }
}
$splash->Destroy;