#!/usr/bin/env perl

use strict;
use warnings;

my $height = 150;
my $weigh = 60;