关于下载:如何指定默认下载名?

daniel-hou

做了一个子函数,用来做下载,有两个参数,$path是要下载的文件,$newname希望用来做默认下载名,要不然每次下载默认名字都是我的程序名,我该如何改我的程序?

sub do_download
{
    my $path = shift;
    my $newname = shift;
                                                                                                                                               
    my $buff;
    open(FH,"$path" or return;
    flock(FH,1);
    binmode(FH);
                                                                                                                                               
    print q|Content-Type:Application/octet-stream|."\n\n";
                                                                                                                                               
    while(read(FH,$buff,1024))
    {
        print STDOUT $buff;
    }
                                                                                                                                               
    close(FH);
    flock(FH,4);
}