Select Code to Download

# Tested with TinyPerl 5.8 on Windows XP and Perl 5.004 on DOS.

my $REF = ReadBMP('D:\\DESKTOP\\mandel3.bmp', 3);
ReduceColorDistribution($REF);
my $HTML = Canvas2HTML($REF);
CreateFile('D:\\DESKTOP\\TESTING.HTM', $HTML);
exit;

use strict;

...
    $foo = 17;      # Oops! Forgot "my"
    ...
}

MAIN:       # Label (not needed, just for documentation)
{
...
    CreateFile('D:\\DESKTOP\\TESTING.HTM', $HTML);
    exit;   # Not really needed either
}

if ($ERR > 5) { undef $HEADER; return 0; }

sub ReadBMP
{
    ...
}

while ($H--)
{