Select Code to Download

package ACME::WeightWatchers;
use Carp;
...
      and confess "no more Perl for me, unless less than 40 lines\n";
  }
}

#!/usr/bin/perl
use strict;
...

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