#!/usr/bin/perl

use warnings;
use strict;
use utf8;
use LWP::UserAgent;
use JSON;

#my $res = LWP::UserAgent->new(agent=>"libwww-perl (Linux i686)")
my $res = LWP::UserAgent->new(agent=>"libwww-perl (Linux x86_64)")
            ->get("https://get.adobe.com/flashplayer/webservices/json/");

$res->is_success() || die;

my $fldat = decode_json($res->content());
my @koh;
my $url;

for(@$fldat){
    if($_->{platform} eq "Linux" && $_->{browser} eq "Firefox"
            && $_->{OPTION_NAME} eq ".tar.gz for Linux"){
        $url = $_->{download_url};
        last;
    }
}

$url || die;

system("wget", "-O", "/tmp/flp$$.tar.gz", $url);

system("tar", "-zxf", "/tmp/flp$$.tar.gz",
              "-C", "/usr/local/lib/adobe-flash/", "libflashplayer.so");

chmod(0755, "/usr/local/lib/adobe-flash/libflashplayer.so");