sub DownloadFile {

    # $filepath is the directory
    # $filename is the name of the file
    my ($filepath,$filename) = @_;

    chdir($filepath) || return(0);
    my $filesize = -s $filename;

    # print full header
    print "Content-disposition: inline; filename=$filename\n";
    print "Content-Length: $filesize\n";
    print "Content-Type: application/octet-stream\n\n";

    # open in binmode
    open(READ,$filename) || die;
    binmode READ;

    # stream it out
    binmode STDOUT;
    while (<READ>) { print;    }
    close(READ);

    # should always return true
    return(1);
}
[download]