Select Code to Download

#!/usr/bin/env perl
use HTTP::Daemon;
...
        $c->send_file_response(".".$r->url->path);
    }
}