Select Code to Download

$file="c:/web/bcimages/$ID.png";
$file1="c:/web/bcimages/$ID.bmp";
...
$image->Set(depth=>8);   
$x = $image->Write($file1);    
warn "$x" if "$x";

$file="c:/web/bcimages/$ID.png";
$file1="c:/web/bcimages/$ID.bmp";
...

$x = $image->Write($file1);    
warn "$x" if "$x";