sub contains {
    my ($file, $string) = @_;
    my $content;
    {
        local $/;
        open my $fh, '<', $file or die $!;
        $content = <$fh>;
        close $fh or die $!;
    }
    index( $content, $string) == -1
      ? 0
      : 1;
}
##</code><code>##

    return not index( $content, $string) == -1

##</code><code>##

    return index( $content, $string) != -1