#!/usr/bin/perl -wn

    if (not /^=/ .. /^=cut/) {
        die $tab = "4\n" if /^    \S/;
    }

    END {
        print "8\n" unless $tab;
    }