<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl

#This script is a very useful script that will work just like a reminder. You just need to change the month arrays to your friends/relatives birthday and put a link in your .bashrc or .cshrc (i.e. perl -w the_path_for_the_script). This way every time you open a session, the first thing you see is you friends/relatives birthday for that particular month.  
# Created by Alireza Aghamohammadi
# last updated :12/11/06
 
use Time::Local;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime time;
my @jan_bday = ("Mike Johnson , 1\n" );
my @feb_bday = ("No Birthdays \n");
my @mar_bday = ("Joe, 21\n");
my @apr_bday = ("Ali ,\n");
my @may_bday = ("Sara, 2\n", "Mom, 16 \n");
my @jun_bday = ("Uncle Joe , 6\n" );
my @jul_bday = ("My Manger , 30\n");
my @aug_bday = ("My Sister, 21\n");
my @sep_bday = ("Nina , 07\n", "Dad, 14\n");
my @oct_bday = ("Norm, 10\n");
my @nov_bday = ("No Birthdays\n");
my @dec_bday = ("Mary, 01\n");
my @month =("January\n","February\n", "March\n","April\n","May\n", "June\n","July\n","August\n","September\n","October\n","November\n","December\n");
my $header ="=================================\n";

if ( $mon == 0) {
print "$header";
print "$month[0]";
print "$header";
print @jan_bday;
}
elsif ( $mon == 1 ){
print "$header";
print "$month[1]";
print "$header";
print @feb_bday;
}
elsif ( $mon == 2 ){
print "$header";
print "$month[2]";
print "$header";
print @mar_bday;
}

elsif ( $mon == 3 ){
print "$header";
print "$month[3]";
print "$header";
print @apr_bday;
}

elsif ( $mon == 4 ){
print "$header";
print "$month[4]";
print "$header";
print @may_bday;
}

elsif ( $mon == 5 ){
print "$header";
print "$month[5]";
print "$header";
print @jun_bday;
}

elsif ( $mon == 6 ){
print "$header";
print "$month[6]";
print "$header";
print @jul_bday;
}

elsif ( $mon == 7 ){
print "$header";
print "$month[7]";
print "$header";
print @aug_bday;
}

elsif ( $mon == 8 ){
print "$header";
print "$month[8]";
print "$header";
print @sep_bday;
}

elsif ( $mon == 9 ){
print "$header";
print "$month[9]";
print "$header";
print @oct_bday;
}

elsif ( $mon == 10 ){
print "$header";
print "$month[10]";
print "$header";
print @nov_bday;
}

elsif ( $mon == 11 ){
print "$header";
print "$month[11]";
print "$header";
print @dec_bday;
}

</pre></body></html>