##################################
sub send_file_to_browser {
##################################
    my $dest = shift;
    my $file;
    local $_;
    
    chomp $$dest;
    
    $$dest =~ s/\\/\//g;
    ($file = (split /\//, $$dest)[-1]) =~ s/\s/_/g;
    
    binmode STDOUT;
    
    print "Content-Type: application/*\n";
    print "Content-Disposition: inline; filename=\"$file\"\n\n";
    
    open FILE, "< $$dest" or die("File $file couldn't be opened");
    binmode FILE;
    print while <FILE>;
    close FILE or die("File $file couldn't be closed");
}