$mode=$ARGV[0];
$frames=$ARGV[1];
$lossy=$ARGV[2];
$skip=$ARGV[3];
@bitmap=`cat $ARGV[4]`;

##</code><code>##

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

##</code><code>##

foreach $item (@bitmap)
{
  chomp($item);
  $total.=$item;
}
@image=split(//,"$total");

##</code><code>##

chomp @bitmap;
@image = split //, join '', @bitmap;

##</code><code>##

            $col=$c;
            $row=$thisRow;

##</code><code>##

# If you don't want to use this optimization, just
# comment out the whole if statement.