A few notes:

. You can avoid doing stat twice by using the _(underscore) handle:

@stat = stat(_); # the -f test did a stat on the same file
[download]

. you can use spritf to simplify your code:

if ($stat[7] > 1000)
{
  $stat[7] = sprintf( "%d KB",  int($stat[7] * .001)  );
}
[download]

Someone else in this monastery will mention the use strict, use warnings, -w, CGI.pm, HTML::Template stuff :)

Tiago