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

watchsize();

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