xXx

Hexid M1n1 5h3ll MobiLe

proc/self/root/usr/share/doc/perl-constant/eg/_[ Not.Writable ]

File://proc/self/root/usr/share/doc/perl-constant/eg/synopsis.pl

#!/usr/bin/perl
# 
# Straight from the synopsis.
#
use strict;

use constant PI    => 4 * atan2(1, 1);
use constant DEBUG => 0;

print "Pi equals ", PI, "...\n" if DEBUG;

use constant {
    SEC   => 0,
    MIN   => 1, 
    HOUR  => 2,
    MDAY  => 3,
    MON   => 4,
    YEAR  => 5,
    WDAY  => 6,
    YDAY  => 7,
    ISDST => 8,
};

use constant WEEKDAYS => qw(
    Sunday Monday Tuesday Wednesday Thursday Friday Saturday
);

print "Today is ", (WEEKDAYS)[ (localtime)[WDAY] ], ".\n";

Your Access Expired	Date. in : 19-09-2025
Regist : 09-12-2024	Expired : 01-12-2027