use 5.010;
use strict;
use warnings;

use LWP::UserAgent;
use Tk;
use Tk::PNG;

my $url = "https://cdn.keyforgegame.com/media/card_front/en/341_1_7C85
+4VPW72RH_en.png";

my $ua = LWP::UserAgent->new(agent => '');
my $response = $ua->get($url);
die $response->status_line if not $response->is_success;
my $data = $response->decoded_content(charset => 'none');

my $mw = MainWindow->new;
$mw->Photo(-data => $data, -format => 'PNG');