#!/usr/bin/perl use strict; use warnings; use utf8; use Data::Dumper; use LWP::UserAgent; use HTTP::Daemon; use threads; my $d = HTTP::Daemon->new(LocalAddr => $ARGV[0], LocalPort => 80, Reuse => 1, Listen => 20) || die; print "Web Server started.\n"."address: ", $d->sockhost(), "\n"."port: ", $d->sockport(), "\n"; while (my $conn = $d->accept) { threads->create(\&process_one_req, $conn)->detach(); } sub process_one_req { my $conn = shift; my $request = $conn->get_request; #print Dumper($request); my $url = "https://upload.wikimedia.org/wikipedia/commons/thumb/0/06/Kitten_in_Rizal_Park%2C_Manila.jpg/800px-Kitten_in_Rizal_Park%2C_Manila.jpg"; #my $url = "https://example.com/stream.mp3"; my $ua = LWP::UserAgent->new; $ua->ssl_opts(verify_hostname => 0); $ua->ssl_opts(SSL_verify_mode => 0x00); $ua->show_progress( "TRUE" ); $conn->send_response($ua->get($url)); #print Dumper($response); $conn->close; undef($conn); undef($ua); }