use CGI qw(:standard);
  #...
  print header("image/png");
  binmode STDOUT;
  print $im->png;