use Encode;

sub check_encoding
{
    my ( $inp_name ) = @_;
    open( my $fh, '<:raw', $inp_name ) or return "$inp_name: open failed: $!";
    my $str = '';
    until ( $str =~ /[^[:ascii:]]/ ) {
        $str = <$fh>;
    }
    if ( $str =~ /^[[:ascii:]]+$/ ) {
        return "ascii";
    }
    eval { $_ = decode( 'utf8', $str, Encode::FB_CROAK ) };
    if ( $@ ) {
        return "cp1256";  # We assume Arabic only, so if not utf8, then cp1256
    }
    else {
        return "utf8";
    }
}