かまいたちの夜勤

#!/usr/local/bin/perl
 
use strict;
use warnings;
use Image::Magick;
 
my $image = Image::Magick -> new();
$image -> Read("favicon.ico");
$image -> Resize(
    geometry => "950%",
    filter => "box"
);
 
print "Content-type: image/png\n\n";
binmode STDOUT;
$image -> Write("png:-");
undef $image;
 
exit;