my $q = CGI -> new();
print $q -> header( "text/html" ),
      $q -> start_html (-title => "File Download",
                            -bgcolor => "#ffffcc" ),
      $q -> p ( "If the file does not begin to dowload automatically it can be downloaded <a href=\"$filepath$filename\">here</a>." ),
      $q -> p ( "<a href=../foo.html>Back to foo</a>"),
      $q -> p ( "<a href=../index.html>Bar Home</a>"),
      $q -> end_html;