#!/usr/bin/perl
print "howdy, I am basically a "; if (`date`=~/^S/) { print "hippy"; }else { print "yuppy"; } print " in search of love with a female geek";...