Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print "Content-type: image/jpeg\n\n"; 
binmode STDOUT;
print $im->Write('jpeg:-');

Unable to annotate image: Warning 315: no delegates configuration file
+ found (delegates.mgk) [No such file or directory]

Unable to annotate image: Warning 315: Unable to read font (Arial.ttf)
+ [No such file or directory]

#!/usr/bin/perl -w
use strict;
...
print "Content-type: image/jpeg\n\n"; 
binmode STDOUT;
print $im->Write('jpeg:-');