@_ = qw/Blog/2006 Journal/2005 Talks Services/;

print <<Introduction;

Yup, I'm fayland. Welcome 2 my site. Enjoy!
欢迎来访。此为 fayland 的个人站点。

A Chinese guy who love Perl only less than his girl.
喜欢用 Perl 做所有可能的事。

my $Summary = <<;

• 2006-3-11 moving from Journal/2005 to Doodle/2006
• 2005-5-10 I'm the maintainer of China.pm for now.
• 2005-4-23 Finally I release the Eplanet-Beta, Enjoy!
• 2005-3-28 It's roughly done. Still need more work. See this journal for more details.
• 2005-3-26 I want to use Catalyst to build my new site. It may take several days. God bless me.

sub directory {

  for (@_) {
      /^CPAN$/ && $q->redirect('CPAN');
      /books?/i && $q->redirect('Books');
      /Synopsis/i && $q->redirect('Synopsis');
      -e $_ && $q->redirect('$_');
      die 'What are u looking for? my email?';
  }
}

# Contact

my $email = qr/^fayland\@(fayland\.org|gmail\.com)$/;