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

print "Do you own a PowerBook?  Y or N   " ;
chomp (my $PowerBook = lc <STDIN>) ;
my $mood ;
if ($PowerBook eq "y") {
    ($mood = "Happy") ;
    print "You are $mood ..." ;
    } else {
    ($mood = "Dejected") ;
    print "You are $mood ..." ;
    }