Select Code to Download

my $in_width = 640;  # this depends on your input data
my $in_height = 480; # this depends on your input data
...
for my $frame (@frames) {
    print $writer $frame;
};