my $dest = 'c:/inetpub/wwwroot/cgi-bin/the_script.pl';

send_file_to_browser(\$dest);

##################################
sub send_file_to_browser {
##################################
    my $dest = shift;
    my ($file, @path);
    local $_;
    
    chomp $$dest;
    
    $$dest =~ s/\\/\//g;
    @path = split /\//, $$dest;
    
    ($file = $path[-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");
}