package Fayland;
use strict;use warnings;
use vars qw/$VERSION/; $VERSION = '0.032';

@_ = 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 做所有可能的事。

Inrtoduction

my $Summary = <<;

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)$/;

1; # let mummy happy