sub is_binary
{
    my $content = shift;

    if(!defined($content))
    {
        return 0;
    }

    my @char = unpack("C" x length($content),$content);
    foreach $a (@char)
    {
        if($a > 127)
        {
            return 1;
        }
    }

    return 0;
}