# Send the .tar file to the browser
print $q->redirect( $filename );

##</code><code>##

print $q -> start_html,
      $q -> a ( "$filename", $filename ),
      $q -> end_html;