#! /usr/bin/perl use strict; use warnings; use CGI; use File::Copy; my $cgi = CGI->new; my $img_filename = "/root/tgmanage/web/nms-public.gathering.org/weathermap.png"; # this must be done for windows binmode STDOUT; # flush headers $|=1; # print the image print $cgi->header(-type=>'image/png; charset=utf-8', -refresh=>'10; weathermap.pl'); copy "$img_filename", \*STDOUT;