Select Code to Download

sub is_binary
{
    my $content = shift;
...

    return 0;
}

#!/usr/bin/perl -w

use strict;
...

    return "false";
}