#!/usr/bin/perl 

use strict;
use warnings;
use LWP::UserAgent;
use URI::Escape;

print "Enter an URL and Press Enter: \n";

my $url = <ARGV>;

my $ua = LWP::UserAgent->new;
my $response = $ua->get(
    $url,
    ':content_file' => '/root/Desktop/url.log',
);
die "Couldn't get $url" unless defined $response;

if ($response->is_success) {
    print $response->decoded_content;
}
else {
    die $response->status_line;
}

my $videoURL = uri_escape_utf8($url);
my $new_videoURL = uri_unescape($videoURL);
print $new_videoURL ;