use HTTP::Daemon;
  use HTTP::Status;


  my $d = new HTTP::Daemon;
  print "Please contact me at: <URL:", $d->url, ">\n";
  while (my $c = $d->accept) {
      while (my $r = $c->get_request) {
      if ($r->method eq 'GET' and $r->url->path eq "/aaa.mp3") {
             $c->send_file_response("aaa.mp3");
      } else {
          $c->send_error(RC_FORBIDDEN)
      }
      }
      $c->close;
      undef($c);
  }
[download]

-- Randal L. Schwartz, Perl hacker

hmmm.... I hope I don't get jumped on here, but perhaps (s)he is not using the HTTP::Daemon module because (s)he is trying to learn a new way of doing something.

I'm nowhere near being "just another perl hacker"; I'm more like "learning as much as I can so some day maybe I can be just another perl hacker." Often I find myself doing things the "hard" way instead of using Module::that::does::everything::you::want *because* if I just use the module, how will I improve my knowlege and skill?

(ignore me if what's I've said sounds stupid.)

What part of this are you missing in the HTTP::Daemon documentation?

       $c->send_file_response($filename)
           Send back a response with the specified $filename as
           content.  If the file is a directory we try to gener-
           ate an HTML index of it.
[download]

And ziggy put a nice example of that as well!

-- Randal L. Schwartz, Perl hacker