PERL notes

# get YMD
sub today() {
    my @t = localtime(time);
    my $ymd = sprintf("%02d%02d%02d", $t[5] + 1900, $t[4] + 1, $t[3]);

    return $ymd;
}
 

# Install perl module to custom directory

perl Makefile.PL INSTALL_BASE=/home/mgsys/perl5

or

perl Makefile.PL PREFIX=/home/mgsys/perl5