chdir($filepath);
    my $filesize = -s $filename;
   print "Content-disposition: attachment;filename=$filename\n";
    print "Content-Length: $filesize\n";
    print "Content-Type: application/octet-stream\n\n";

    open(READ,$filename) || die;
    while (<READ>) {
        print;
    }
    close(READ);