view release on metacpan or  search on metacpan

cgi-bin/app-button  view on Meta::CPAN

    }
}

$bgcolor = $cgi->param("bgcolor");
$bgcolor = "#cccccc" if (!$bgcolor);
&color($bgcolor);   # make sure the bgcolor is in the color map

#########################################################
# SET OPTIONAL ATTRIBUTES
#########################################################
$transparent = $cgi->param("transparent");
if (defined $transparent && $transparent ne "" && defined $color{$transparent}) {
    $im->transparent($color{$transparent});
}

$interlaced = $cgi->param("interlaced");
if ($interlaced) {
    $im->interlaced('true');
}

#########################################################
# DRAW LINES
#########################################################