Select Code to Download

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

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

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

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

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

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