Boa Tarde,<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?<br>