#!/usr/bin/perl -w
use strict;
use pub;

my $me;
my $home = "My House";

my $fun = pub->new();

while ($me < 20) {
    $me += $fun->getBeer("Super Bock");
    print "$me talking to Girls";   
}

$fun->exit();
exit $home;