<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/env perl
use strict;
use warnings;
use JSON::Parse 'parse_json';
use LWP::UserAgent;
my @urls = @ARGV;
foreach (@urls){
        my $post_url = qq{http://upload.gfycat.com/transcode?fetchUrl=$_};
        my $user_a = LWP::UserAgent-&gt;new(agent =&gt; "Perl");
        my $res = $user_a-&gt;post($post_url);
        my $json_res = $res-&gt;{_content};
        my $parsed = parse_json ($json_res);
        foreach (keys %$parsed){
                print "\n$_: $parsed-&gt;{$_}";
        }
        print "Done!\n";
        print "#"x50;
}
</pre></body></html>