#!/usr/bin/perl

use strict;
use warnings;
use Text::FromAny;

my $tFromAny = Text::FromAny->new(
    file => '/root/Desktop/some.pdf');
print my $text = $tFromAny->text, "\n";