my $arrowDnBits = pack("b8" x 5,
    	"........",
    	".111111.",
    	"..1111..",
    	"...11...",
    	"........");
$top->DefineBitmap('arrowDn' => 8, 5, $arrowDnBits);

##</code><code>##

$top->configure(-bitmap=>'arrowDn', -background=>'red');
$top->image(-bitmap=>'arrowDn', -background=>'red');
$top->arrowDn(-background=>'red');