Youtube

#!/usr/bin/perl
#http://www.sornram9254.com
#http://facebook.com/sornram9254
#http://facebook.com/sornram9254Fan
use CGI qw(:standard);
print "Content-type:text/html\n\n";
print "<meta charset=\"utf-8\">";
print "
<style>
    *{
        text-align:center;
    }
    body{
        background: #000;
    }
    p{
        color: #fff;
        font-size: 28px;
    }
</style>
";
print "<form method=post>";
print "<p>Youtube Link <input type=text name=InputURL size=35/></p>";
print "</form>";
my $url = param('InputURL');
$url =~ s/https/http/g;
if($url){
    my $html = `wget -Ncq "$url" -O-`;
    $html =~ m/<title>(.*?)<\/title>/;
    $title = $1;
    $title =~ s/ - YouTube//g;
    my ($download) = $html =~ /"url_encoded_fmt_stream_map"([\s\S]+?)\,/ig;
    $download =~ s/\:\ \"//;
    $download =~ s/%3A/:/g;
    $download =~ s/%2F/\//g;
    $download =~ s/%3F/\?/g;
    $download =~ s/%3D/\=/g;
    $download =~ s/%252C/%2C/g;
    $download =~ s/%26/\&/g;
    $download =~ s/sig=/signature=/g;
    $download =~ s/\\u0026/\&/g;
    $download =~ s/(type=[^&]+)//g;
    $download =~ s/(fallback_host=[^&]+)//g;
    $download =~ s/(quality=[^&]+)//g;
    my ($signature) = $download =~ /(signature=[^&]+)/;
    my ($youtubeurl) = $download =~ /(http.+)/;
    $youtubeurl =~ s/&signature.+$//;
    $download = "$youtubeurl\&$signature";
    $download =~ s/&+/&/g;
    $download =~ s/&itag=\d+&signature=/&signature=/g;
    print "<p>$title</p>";
    print "<video poster=\"../vdo.png\" width=\"640\" height=\"480\" src=\"$download\" controls=\"controls\"></video>";
}