#!/usr/bin/perl

#---------------------------------------------------------------------------*/
#                       download counter Ver 0.01                           */
#                                                                           */
#               2005.11.09  original coding  by Yochi-taka                  */
#---------------------------------------------------------------------------*/
$download_file = 'http://www.yochi-taka.com/~el/floatbook/floatbook200.zip';
$count_file = './download.cnt';

open(COUNT, "< $count_file");
$count = <COUNT>;
close(COUNT);

$count++;

open(COUNT, "> $count_file");
print(COUNT "$count");
close(COUNT);

print "Location: $download_file\n\n";