#!/usr/local/bin/perl $fly = "/usr/libperl/fly"; $image_dir = "/usr/libperl/images"; $count_file = "./count.dat"; $num_x = 15; $num_y = 20; if(open(COUNT, "$count_file")){ $count_num = ; close(COUNT); $new_count = $count_num +1; if(open(COUNT,">$count_file")){ print COUNT "$new_count"; close(COUNT); } $count_num++; }else{ if(open(COUNT,"> $count_file")){ print COUNT "1"; close(COUNT); $count_num = 1; }else{ $count_num = 0; } } $len = length("$count_num"); $gif_x = $num_x * $len; $gif_y = 20; @count = split(//,$count_num); print "Content-type: image/gif\n\n"; open(FLY,"| $fly -q"); binmode(FLY); binmode(STDOUT); print FLY "new\nsize $gif_x,$gif_y\n"; $pos_x = 0; foreach $gifnum (@count){ print FLY "copy $pos_x,0,-1,-1,-1,-1,$image_dir/$gifnum.gif\n"; $pos_x += $num_x; } print FLY "end\n"; exit;