in reply to In love with perl

And to get a glimpse of the future 


YearsFromNow();  

sub YearsFromNow {  
    $wifeWeight=120;
    $yearsGoBye=10;    
    $wifeAppeal=10;                    
    while($yearsGoBye > 0){
        $wifeAppeal--;
        $wifeWeight=$wifeWeight + 7;
        $yearsGoBye--;

        if($yearsGoBye == 5){
            $add2Kids = 2;
            $wifeWeight = $wifeWeight + 15;
        }
        print "Appeal = $wifeAppeal\n";
        print "Weight = $wifeWeight\n";
    }

}

[download]

Replies are listed 'Best First'.
Re: Re: In love with perl
by Vig Darmond (Initiate) on May 02, 2003 at 21:42 UTC
    :) And what about dying? 
    Dying();

sub Dying {
    die "Oops! He's dead...\n";
}

    [download]
[reply]
[d/l]

In Section Perl Poetry