package ACME::WeightWatchers;
use Carp;
require Exporter;
our @ISA    = qw(Exporter);
our @EXPORT = 'watchsize';

sub watchsize {
  local $/ = "\n";
  my $caller = caller;
  open _, "$caller::$0";
  while (<_>) {
    $. == 40 
      and confess "no more Perl for me, unless less than 40 lines\n";
  }
}