Select Code to Download

use Image::Magick;  # I actually use a wrapper here to set the env.  
my $status;
...
warn $status if ($status);
$status = $image->Write('html:../../htdocs/background.html');
warn $status if ($status);

#!/usr/local/bin/perl

...
            ),
      end_form(),
      end_html();