use strict use warnings use File LibMagic wget http cs11 superfiles me

use strict;
use warnings;
use File::LibMagic;

`wget "http://cs11.superfiles.me/f/091138088245175091235129003195125102154036188162223189/1433342942/25002290/0/ba470f1482b885cf90df449ade07c772/6b6717-spaces.ru.webp" -O "/tmp/test_libmagic.png"`;
my $ft = File::LibMagic->new('/etc/magic');

my $screen_body;
open FH, "</tmp/test_libmagic.png";
read FH, $screen_body, -s "/tmp/test_libmagic.png";
close FH;
print $ft->describe_contents(substr($screen_body, 0, 1024));