#!/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);
}