my $mode = shift;
my $frames = shift;
my $lossy = shift;
my $skip = shift;
my @bitmap = <>;