#!/usr/bin/perl -w

use strict;
use warnings;

use LWP;
use HTTP::Request::Common;
use CGI::Carp qw(fatalsToBrowser);

print "Content-type: text/html; charset=utf8\n\n";

my $ua  = LWP::UserAgent->new(
    protocols_allowed => ['http', 'https'],
    timeout           => 10,
);
 
$ua->env_proxy;
$ua->cookie_jar({});
 
my $response = $ua->get('https://www.bi*****/video/m4q*******/');
 
if ($response->is_success) {
    print $response->decoded_content;
}
else {
    die $response->status_line; # line 26
}

<?php
setlocale (LC_ALL, 'de_DE@euro', 'de_DE', 'de', 'ge'); 
ini_set("allow_url_fopen", true);
ini_set("allow_url_include", true);
$content = file("https://www.bi****/video/m4********/");
print $content;
?>