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";
  }
}

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use ACME::WeightWatchers;

watchsize();

# your code here ...
print "I made it under 40!\n";