#!/usr/bin/perl -l

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

my $log = '/root/Desktop/text.log';

open STDOUT, '>', $log;
my $entries= "<TITLE>Page 7</TITLE>";
print $entries;
my $tFromAny = Text::FromAny->new(file => $log);
print $tFromAny->detectedType;
close STDOUT;