Não sei se já foi se foi desculpe o flood, mas não tive resposta<br>
<br>
procurei revirei e não achei, é bem simples mas nao consegui.<br>
<br>
Script:<br>
<br>
#!/usr/bin/perl<br>
<br>
use CGI;<br>
  <br>
use Image::Magick;<br>
<br>
my $im = Image::Magick->new ();<br>
<br>
$im->ReadImage('foto.jpg');<br>

$im->ReadImage('baixo.jpg');<br>
<br>
my ($height, $width) = $im->Get ('height', 'width');<br>
<br>
$im->Thumbnail(width=>640, height=>427);<br>
<br>
$im->Set(type=>'truecolor');<br>

$im->Set(magick=>'JPEG');<br>
$im->Set(quality=>80);<br>
$im->Set(size=>'640x427');<br>
<br>
print "Content-type: image/jpeg\n\n"; <br>
binmode STDOUT;<br>
<br>
print $im->Write( "jpeg:-" );<br>

<br>
<br>
o Script é para imprimir a foto no tamanho certo, e colocar propaganda na parte,<br>
inferior da imagem.<br>
<br>
Porem ele só imprime foto.jpg não colocando baixo.jpg<br>
<br>
E quando clica para salvar a imagem no pc ele salva como image.cgi <br>

<br>
alguem saberia me ajudar?